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ib ig CESCRISTION 
38 4.3 PROGRAM AND OPERATOR ACTION 
i42 1) LORD PROGRAM INTO MEMORY USING ABS LOADER. 
743 =) LOAD. aroees 
i35 3) TF HARCWARE Silk REGISTER IS AVAILABLE, SET SuITZHES 
ist (SEE SEC. 5.1), ALL DOWN FOR WORST CAGE, PRESS START. 
i4é 4) IF SWITCH-LESS PROCESSOR SIMPLY PRESS STH 
i43 2; ENTER PARANETERS (SEE Sec) 8-3) AS THEY ARE REQUESTED, 
748 6) THE PROGRAM WILL LOOP AND BELL WILL RING CNCE EVERY PRs 
738 7) Q MINIMUM OF THO PASSES SHOULD ALilAYS 3E SUN. 
i S. OPERATING PROCEDURE 
{| 5 ‘ 
| iss 5.1 FERATIONAL SWITCH SETTINGS a 
| Q7 $8 205, ALL SWITCHES DOWN IS WORST CASE TESTING. EACH  (~ 
| iB SUBTEST WhLL BE LOOBED UPON UNTIL COMPLETION OF 16 Passes fe 
| TES THeT SusTEs L WILL RING UPON COMPLETION OF & Bas: 
| 60 OF THE ENTIRE PROGRAM. ALTERNATE PASS HILD RUN UITH THE 
j Se Ii"Bsi Bele 
i ‘a= 
| ihe THE SNITCH SETTINGS ARE: 
| TES SiciS> 21 ..... ON_ ERROR 
| 1s Sut 2d lit! Scope Noo 
|. ibe Sci? 22 cil. NHIBIT PRINTCUT 
et: SWci2> = 1.11)" INHISTT TRACE TRAPPING 
| iss Sud) = 2.2.2. INMIBET ITERATIONS OF SUBTEST 
ive SW<l9> S 1 ...0 SELL ON ER 
i Dna BELL ON Fass COMPLETE 
| Je SucO9> = 2 I5252 LOSB ON ERROR 
73 sWwiCS> = 1 ..... LOOP ON TEST IN SW<7:C> 
175 THIS FROGRAM HAS BEEN MODIFIED 10 RUN ON A PROCESSOR WITH 0 
ITE WITHOUT 8 H SWITCH RES FIRST EXECUTED THE 
177 PROGRAM TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. 
72 IF NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 
175 176) IS DEFAULTED TC. IF THIS IS THE CASE, UPON EXECUTION 
is THE CONTENTS OF THE SWREG ARE DUMPED IN OctAL ON THE CONSCLE 
ist TTY AND ANY CHANGES ARE REQUESTED 
iz3 (I.E.) SWR=XXXXXX NEW= 
oo” 
ies POSSIBLE RE:PONSES ARE: 
te? 1. «CR IF NO CHANGES ARE TO BE MADE. i 
ies 2. € DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SKITCH 
7E2 REGISTER VALUE: LAST DIGIT FOLLOWED BY 
tet 3. i TS ALLOW REENTERING VALUE IF ERROR IS 
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RINDEC-11-D20DJA-0-D DJii LOGIC TESTS 
CeScRIPTION 
SUILT INTO THE eee 15 THE ABILITY TC re ae CHANGE 
THE CONTENTS y ce WREG DURING PROGRAM EXECUTIO SY STRIKING 
tG CONTL G) N CONSOLE hy THE OPERATOR SETS a" REQUEST FLAG 
TQ CHANGE THE CONTENTS OF SWREG CH_IS PROCESSED IN KEY 
AREAS OF THE PROGRAM “OBE CIE) ERROR ROUTINES, AFTER HALTS 
END OF PASS, AND OTHER APPLICABLE AREAS. 
5.2 SUSROUTINE ABSTRACTS 
$.2.2 SCOPE 
THIS SUBROUTINE CALL (‘VIA A TRAP INSTRUCTION) IS PLACED 
BETNEEN EACH SU est IN THE INSTRUCTION SECTION. IT RECORDS 
THE STARTING ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED 
IN LOCATION “LAD”. IF A SlOPE LOOP IS REQUESTED, THE 
CURRENT SUBTEST WILL BE LOOPED UPON. S<11) ON 21 INH{SITS 
ITERATION OF SUBTESTS. THe rere eern OF “LAD” MAY BE USED TO 
DETERMINE THE LAST SUBTEST SUCCESSFULLY COMPLETED. 
§.2.2 HLT 
THIS ROS (CALLED BY AN EMT INSTRUCTION) ee". OUT_ #N 
ERROR MESSAGE 6.1), IF _SW<9> IS ON A 1 AND A HLT IS 
EXECUTED, THE SUBTEST WILL a Loree UPON UNTIL _1& 
CONSECUTIVE GCOD PASSES SRE COMPLETe TO INHISIT TYPEOUTS, 
ae + thet ON A 1. TO RING THE BELT ON AN ERROR, PUT Su<1o> 
5.2.4 TRTRAP 
IF SW<l2> IS ON AO, THE T-8IT Bil BE SET ON_ ALTERNATE 
PASSES. WHEN THE T-BIT IS § THE PROCESSOR TRAPS AFTER 
one INSTRUCTION. THE FIRST TingtRuCtiON EXECUTED UPON 
APPING {5 AN “RTI® OR “RTT” WHICH RETURNS TO THE 
INTERRUPTED SEGUENCE OF INSTRUCTIONS THIS SEQUENCE [5S 
CONTINUED UNTIL THE END OF THE PROGRAM TS REACHED. 
5.2.5 TRAPCATCHER 
A ™.+e" = "HALT" SEQUENCE IS REPEATED FROM O - 56 TO be tect 
ANY snr e be S _AND A +e" = “TOT SEQUENCE TS 
REPEATED FROM 59 - 775 TO DETECT ANY | Yee Te D_ INTERRUPTS. 
THUS _ANY NEXBES TED TRAPS WILL HALT AT THE VEC TOR + 2. ANY 
uRERPECTED. INTERRUPTS WILL RESULT IN AN ERROR “HLT” IN 
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PROGRAM AND OPERATOR ACTION 





THE FOLLOWING oe anche = gree TO THE OPERATOR AT THE 
BEGINNING OF THE PROGRA A DETAILED DESCRIPTION OF WHAT IS 


REQUIRED FOR EACH PARAMETER IS GIVEN BELLOW. 
) “FIRST DJ1i ADDRESS: |.” 


THE CSR pee OF THE FIRST OJ11 YOU WISH 
ST. BE SETWEEN 160000°8) AND AER OS 


MUST 
THE DEFAULT (CARRIAGE RETURN) 


SELeRTER” S)" SELECTS THE ADCRESS PREVIOU 


‘ OVECT D oo 
2) “VECTOR_AD 


ESS: 
THE RECEIVER INTERRUPT — ACORESS OF Mays e) ag 


FecREVI Gls)” crLeets 


2J9¢ 
PRE VTOUSL SELECTED. 
3) "NO. OF DJ11 


THE NUMBER OF OJ11 UNITS YOU WISH TO TEST 
IME MUST BE BET 1 AND 16 


WEEN 


CODE, NO PARITY. “NCO)" C 


(CARRIAGE RETURN) IS TO i 
THE HUNGER. OF UNITS PREY SLY SELECTED. 


N? 
R DEFAULT _<CAR:,.aGE, RETURN) g 
QUSES REQUESTS e 


LEY 
co ae F LEVEL AN AND PARITY ON ALL REQUESTED ote 


(RE\ VI9OU us)" 


S) "CHAR L 
“FUP Cape LEVEL FOB THE LINE GROUP SP 
BES. 6.7, OR 8. THE DEFAULT 

: IS 108 LEVEL CODE. 

6) “PARITY (NO, ODE, EVEN): ™ 
THE tySe SF PGRITY SELECTED FOR THE 
SrECIFIED. THE CEFAULT 

Fs 


ERROR PRINTOUT 

THE FORMAT IS AS FOLLOWS: 

ADR DJADR (Rl) (R22) (R32) CRY) 
WHERE : 


ADR 


= HLT 
DJEDR = CSR F DJ] UNDER TEST 


FOUR. 
fae LS AND PARITIES PREVIOUSLY SELECT TES. 


CARRIAGE RETURN} 


(CARRIAGE RETURN) 
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FOLLOWING THE HLT; £.G., HLT*3 WOULD TYPE ni) 
THRU (R3); HLT (BY ITSELF) WOULD STOP AFTER TYPING 


ACE AND “baank 
TC FIND THE FAILING TEST, LOQK AT THE LISTING ABOVE THE 
RDORESS TYPED. IN MOST CASES THE COMMENT BESIDE THE HLT 


TELLS Hat WAS. BEING CHECKED AND WHAT WAS EXPECTED. ALS, A 
LIST OF THE PROBABLE ay Ne LOGIC IS GiVEN IN THE COMMENTS 
At THE BEGINNING OF THE 7 

ERROR RECOVERY 

RESTART AT 200 OR 1900. 


ERROR COUNTER 


AN ERROR COUNT IS KEPT IN “ERRORS” (LOC 
CLEARED FROM THE CONSOLE, BY RESTA 
RELOADING THE PROGRAN. 


‘ T CAN BE 
AT 2355, Of SY 


Gorm 
o 


RESTRICTIONS 

IF MORE THAN ONE OJ11l IS TESTED AT TIME, THE CEVICE 
ADDRESSES AND THE \ eCTOR ADDRESSES MUST "al SE CONTIGUOUS. 
iF THIS PROGRAM 2S RUN WITH A MONITOR, I.€. ACT11 OF OOP, 
THE DEVICE ADDRESSES MUST FOLLOW ‘THE FLOSTING ADDRESS 
CONVENTION. DJL1°S WILL SE FIRST, STARTING AT 160019,. 


MISCELLANESUS 


EXECUTION TIME 


DUE TO ie YERTOUS BAUD — AVAILABLE AND THE ABILITY TO 

CHECK 8 DJ11*S AT ONCE, THE EXICUTION TIME CAN BE 
SNTMHERE. FROM 15 sete 19 THREE AND A HALF HOURS. THE 
FOLLOWING TYPICAL TIMES ARE FOR ONE DJ11 ily ALL LINES aT 


L 1 
POP-11/20 WITHOUT TRACE’ TRAPPING. FR MULTIPLE DJ11°S 
MULTIPLY THESE TIMES BY THE NUMBER OF UNITS SELECTED Foi 


7§ CO:26:00 
110 90:18:00 
134.5 00:15:00 
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MOINDES=22-D2078-2 DSi] LOGIC TESTS MACY!! 27(732) 21-SEP-76 13:43 PAGE 16 
STA3AD.P21 SETUP AREA 
Sil O01324 2127S 901200 BEGIN: MOV BICNT, SP :SET UP STACK POINTER 
Bm5 BS 350 EOe7S? BPTI JSR pe. SuSWRR ;CHECK FOR SWITCH REGISTER 
S73 (391334 4612730 9090!4 MOV #14 
S73 351240 912720 O18S34 MOV avESRT (RO)+ »TRACE TRAP VECTOR < 
Ses 86I344 Stersc 80034e ‘Cy 
S7E O013S0 Dere0 017104 MOY! STATRGP (RO) + sIOT VECTOR (20) 
ST> 901354 012720 900340 MOY #340, ‘"(RO)+ 
Eg 551380 O1E7EO OIshHs Moy #PDOWNS, (RO)+ POWER FAIL VECTOR (24) 
S78 RST3Es 823735 B002u0 MOV #340, ‘(RO)+ 
S80 991379 Ole720 O1S?74 MOY wENT$, (RO)+ EMT VECTOR (30° 
S$: 001379 Jietid 000340 MOV #340,'  (RO)+ 
S2 651593 Olerveo 015622 MOY STRAPS, (RO)+ ;TRAP VECTOR (24) 
53 52:404 Ofs72e0 9003468 MOV #240, ° (RO+ 
34 291419 12737 OO1446 00010 MOV #13, a810 ad 
85 Faluis 96erso SXT Ie sCHECK FOR PDP-11-40 OR 45 
S6 85343¢ 812737 oops o1sss4 MOY #RTT. QHYESRT 
S51436 Slo73s7 soneds oonaas MOV BRITT. ak6 
B51334 Sle7a7 Scc40a l7rrry MOY #400, Del77774 «SET UP STACK LIMIT TO 1005 
5sieus ooso37 sacs CLR Jt 
H01s4e 012737 980912 oooois 18: MOV #12, 9810 
BSrHs4 995027 o91202 CLR ERRARS :CLEAR ERROR COUNTER 
So:460 905037 621204 LR BCNT TLEAR PASS COUNTER 
597465 2686527 8o1eos ér PCNT+2 
Sais7o 65737 docc42 TST 3842 :CHECK FOR ACTI1 OR ODP PRESENT 
561474 607404 Eg SETAOR : BRANCH IF_NCNE 
B5147& SOsTa7 O1Ta7S SR ps AUTO  :G0 TO SUBROUTINE TO “MAP” DIL1 SN THE SYS 


boisos 360137 802302 JMP RESTAR ; SKIP OPERATOR ACTION 


“MOO 10911900000 0. O00 ooo 


on Corde C0 00 SOP OF Gore 19.000 SOP O18 Cou O09. 000-2 U1 8 Gone Cn O00 ~ IP UT Gfte--09 


O0S3506 O0CO04 017244 GETSDR: TYPE, MSGAOR sTYPE “FIRST DJil aly OORESS™ 
cossle OO4537 Oléels JSR RS, READIN READ INPUT FROM TTY AND SAVE 
001516 001230 .WORD © DEVADR ;_IN DEVADR 
651525 001372 BNE GETADR :BRANCH IF SAD INPLT 
csibee 05737 001230 Tst DEVADR 
wees Uwe i 
Sida: D373? grizie 201299, = BOY DEFRDR, DEVADR 
SpEss Geerar ioe Gcis8o “| Eis ieOGOC.Devaoe 
Oo15 101355 BHI GETADR : 
10 DO:554 200004 O17E74 SETVEC: TYPE,  MSGVEC TYPE “VECTOR ADDRESS:" 
11 QO1SEO 904537 Olbel6 J READIN :READ INPUT FROM TTY AND SAVE 


wwe ? =] RS. 
CO1S84 001232 -WORD ‘YECADR :IN VECADR 


COUP OE MOP CP OP OP OPO iP OP OP OP OP OP Ge Ce OP OP OP OP Or OP OP OP CUO OT OUT UOT TOTO Ua 
*o- 


13 S51f&6 901372 BNE ss GETVEC ;BRANCH TE BRO INPUT 
14 601570 605737 oo1ez2 TST VECADR :CHECK FOR 

t© 893574 991003 BNE 1§ 

i€ E1876 912727 990200 901222 MOY 8300, VECADR + ;SET_TO_FIRST FLOATING VECTOR 
i? SOigo4 O42737 EScda7 991233 1s BIC sa? VECADR :CLEAR TO MODULO 10 

ig OSisi2 322737 f50300 01232 CMP = w300, »- VECADR =; CHECK FOR LOW LIMIT 

i$ OO1620 OO2355 BGT GE TVEC 

20 C51622 922737 o01000 on1e22 cMP = w1000, VECADR ;CHECK FOR UPPER LIMIT 

21 001630 86375: Ble GETVE 

ze C1632 00004 017320 GETNUM: TYPE,  NEGNUN.  ; TYPE"NUNBER OR UNITS: 

22 CClexe =CSS737 016364 SR PC, gREAO INPUT ROW THE TTY 

z ; CHECK STRING FOR’ vALIC DIGITS, TERMINATOR, AND ‘P* 

Eo DCLE42 CLE722 O1E512 MOY so RINPUT, R2 POINTS Yo" INPUT STRE 
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S26 OF1846 112201 MV (R214, RL ;LOAD 1ST _CHOR : 
Se. O01ES0 OO1lNH BE 0 1$ BRANCH IF IMMEDIATE TERMNATOR 
629 001882 122701 000120 cNPB8'PRI ;CHECY FOR & P 
$29 901556 OO13 BEG CONFIG :CONFIGURE MODE IF SO 
S30 PS1eb0 le0i2¢ 22007! CMS A B71 :MUST BE A VALID ASCII NUMBER 
B32 Soieee ieee] OCOOES oe eove) SETRIP ASCTL COD 
sé Q21SS6 70} O0CCES U #60, oy | 1 Sci 
S33 O01? 00375" capt ft GETAUM i AGULON?T BE ZERO_OR_NEG 
Se ee ;iST CHAR IS A VALID DIGIT, 1 THRU 9 - CHECK REST OF STRING 
S25 rifles lesrcs TSTB = {RE} + ;2ND CHAR A TERMINATOR? 
HBAS [en fe ie brs uMt Gute st he Teenie 
Bo? DOLD 10S) Si (Re :NO_- UST by EMINATOR 
639 Doi7oe 001% NE GE TNUM ELSE SETRY. 
S33 2eiP4 fsheEe COLO. cMPB ~(R2) 871 sCHECK 2ND CHAR FOR @ VALIC NUMSER 
40 221715 101380 SHI GETNUM 
641 Sol7i2 132203 : MOV CRE) ,R3 ;MAKE IT MORE ACCESSIBLE 
| Se solris igecc2 o000eC Su #65, f3 STRIP ASCII COD 
} $43 D31780 190744 _... Mr SETALM = | SHOULDN'T BE NEGATIVE 
cal. Seeaniear: ;B27H LOW AND HIGH ORDER OIGITS ARE OK - CONVERT DECIMAL VALUE. 
S45 Soiree 925.46 MOV R1,- (SP: ;SAVE IT FOR LATER 
aS soi fea Bre ant ng ot :MULT HI ORDER BY & 
) Be sbizso peest. ASL Ri 
| 845 302732 06316 Ase (SP) ;MULTIPLY. IT BY 2 
; 850 301734 96260: ADD (P)+, RL RESULT IS (HI ORD #10. 
| FES esifsé 6os2: = at :NOW ADD IN THE LOW ORCES 
SSE wedi MS Ve TIUE oc 
f §6§ §53 OS17He OB70! cose: 18; MOV 8 RI ;LOAD DEFAULT VALUE HERE 
pt Sie ees Meee inl HAS THE CONVERTED VALLE - COMPARE AGAINST MAX ALLOWED. 
S55 Soi74— elle? OCOCTES 3: CMP Rl, SOJMXNO 3729 BIG? 
SSS xxes == 202327 eel gel Melee SHI GE : NUM =~ : yES a4 RETRY. 
| Bor oeirse Dlols? Ole MOV Ri UNITS :VALUE Ok - STORE RESULT 
| 888 SOMES Tiere OCS1So 201304 Mov 100, 02uuT "PRIME" UNIT UNDER TEST NUMSES 
| 862 OO:766 00°04 017343 SONFIG: TYPE, | MSGCON TYPE “STANDARD CONFIG?” 
{| 882 Qol772 Soars? Siss64 zs PO REACS ;RESO INPUT FROM TTY 
st= SOl776 leerar O0012c c1ssi2 cMPB- g'P, ~=sOINPUT §=©=- CHECK FOR “P* 
663 O0e004 OOIss BEG RESTAR ;BRANCH IF PREVIOUS 
| BES OS20ce DlerOC scree MOV te2, FO 3SET UP COUNTER 
S65 Loess Sigel Colsle MOV sLENGTH,&2 3POINT TO CHAR LEN TABLE 
es& CCECIE 50502) 18: CLR (RI3+ :PUT CHAR MASK FOR SIN CHaR TAELE 
art AND CLR PARITY TASLE 
E62 O02925 9095300 DEC RO COUNT DOWN 
S55 Sbetee OO137 EN 1$ sBRANCH_IF NOT DONE 
B70 S0eced 106737 O16512 TST8 = INPUT :CHECK FOR C 
é7: 002039 001524 Fs SEG RESTAR BRANCH IF DEFAULT 
f° sbehse 12e7327 03013: Sissi CMPB #131 INPUT  ;CHECK FOR “Y™ 
é7s 502090 001520 Res SEO RESTAR :BRANCH IF DEFAULT 
ers cette jeevar COOLlE O16812 c eli INPUT CHECK FOR “N™ 
e7s 056059 O01 246 SNE 86 CONFIG BRANCH IF ILLEGAL ENTRY 
STE Sce0Se 305500 cL RO :CLR UNIT COUNTER 
b77 O0e04 SOSSCL cLR . :CLR LINE COUNTER = 
E72 seessé ClerGe 992226 MOY #LENGTH, Re :SET UP POINTER TO CHAR MASK TASLE 
E73 Clecee 12703 201276 MOV SPARITY Fo :SET UP POINTER TS PARITY TASLE 
Se. eeSe Cle es = JUS vo) MOV $i ,RS :SET UP MARKER 
8: Stet7e Gododa 817377 TYFLIN: TYPE,  MSSLIN ;TYPE "LINES “ 





MA TCORE SL SPR TAL 
+ 
oecJAMl. Fil 


ase 2257S 215208 
£89 fAsian Anas 
PEs MxXEtKE x fe, 
ese S2EttS CLD 
S35 zeils sbe-0i 
ese 55115 D10256 
23° ceiis o04" 
ese 902122 90520) 
es <= 2 
SS) B5Si56 afataito 
$39 092:30 004737 
$91 302134 1073 
S35 S0ei8C CC ited 
S33 2el42 10873: 
$39 lleits 0391366 
$35 $2e:50 i827 
$3 LGSi56 lisrle 
esr 05162 106318 
698 Coel64 10335. 
se SSI 108332 
roO ~Goeire 001373 
fol 002174 L3erle 
702 902200 001351 
"93 OOsete fospne 
SRS oAnSSag | ARRARS 
Set SGEee Ss0cs4 
fos QSeei0 cles? 
| 23B 208814 d05z3: 
cee Sceeef = CO14is 
| 758 302283 128737 
7939 «COee230 409141) 
| 219 S83232 122737 
vty BEEN OO T4Os 
| fle soeete 122737 
| 713 Doeesd cb1s5s 
fa geecse 1504i3 
tis SERS O5s205 
i 6 aE OOSSS—E 932701 
| £12 Qozebe 90132 
| fie sgeess Gre7rce 
| 222 SYEe72 gcb2c4 
7el  Dleeve UUSe00 
| 2, pueees Wess 
2 --2 == te en tet 
j i es wwe www ww dit 7 


~-4¢ 4°Z>- = 
<U 


lw 


a WGI) I>: UU) —40) 44 
2-4 ZINC) ee d 
aTr- o “ 2-4 ADU age 09 TD ee 


=] 
nN 


oO 
tut: 


oo 


ies] 
ts 
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; TYPE Rl iN OCTAL 
rahe oie LEADING ZERO"S 
; TYPE A_DRSH {-) 


:LAST 
:TYP 
SAN 


78 ‘HIS 
;CONVERT FROM ASCI 
MASK BIT BY SIT 
PUT, >» 8 


. 
ow 


:SaC I 
sINC T 


: CLEAR 
BAD I 


s COUNT 
BRANCH I 
CHESK FO 


LINE IN GROUP OF 4 
1 IN OCTAL 
D SUPRESS LEADING ZERO": 


ae GROLP 
NGTH: ‘ 


4 


F NOT DONE 
RS CHAR 


NPUT, « § 
0 NEXT LINE GRCUF 


:TYPE “PARTTY (NC, ODD, EVEN): 
:READ INPUT FROM tyy 


CHECK FOR CR 
:BRANCH IF DEFAULT 
CHECK FOR "N" 
:BRANCH IF “NO™ 


sCHECK FOR “E™ 
s;BRANCH IF “EVEN” 


ECK FOR “0” 


;SRANCH IF 
;SET THE CDD 


NO 


NE 
PARITY FLAG 


“UP DATE PARITY TASLE POINTER 


> CHECK 
sBRANCH IF N 


FOR NEXT UNIT 


‘ 
ow 


sRESET PARITY TASLE POINTER 


sCOUNT UNITS 
CHECK FOR LAST 
sBRANCH IF MORE 


TO NEXT UNIT 


Sida ich aaieiicihciad banded hated aaeneliesane aeeupuaiemnianpninamenmemumntannned 





200% 
urutu 
oo 


QOOoVdOIOVdO0NOC 
Te 5 EH S| 
furutuful 
POOLE O£OL£fy 


rm 

WI LIGIO) 
- £GJGITU 

or 


9-9-3999 ~ 


Shes be be Je 


nyo 
COOP RPO nO or OP (Onin 


.oco SCP 07 & Gofur (o.nto yar Uo 


ae bat Bee 


at 


00. JOSS 


INVNODVOVNONOAD M00V0d0000 
OrOr-Orre-O = O~-Oo-O 


990300 
Love 76 
o90004 
601050 


901310 
021304 


001304 


0 

oo12i4 
0299S2 
COl216 
O0leel 
O0i22e 


MACYL2 271732) 





Ide 


DIPAR 
DJUUT, UNITS 
23 

OJUUT 

DEVADR, CSR 
VECADR: RCVVEC 
BLENGTH, DILEN 
41. DIPAR 
DIUUT 


JU 

CSR, Rl 

#2, R} 
Rl, RBUF 
#2. RI 
Ri. TCR 
ge, R1 
R1 TBUF 
RCVVEC, RI 
(R1)+ 
Rl, IC VLVL 
(Rli+ 

1 XMTVEC 
(Ri )+ 
Rl, XMTLVL 
ICNT 
Lao 


—— eee ee ee. 
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:SET UP STACK POINTER 


sBEGINNING OF FLOATING 


ee 


;INIT CHAR TABLE POINTER 
INIT PARITY FLAG MARKER 


L THE REGISTER ADDRESSES 
SET uP RECEIVER SUFFER 


SET UP_ TRANSMITTER CONTROL RE 
; BREAK STATUS REG 


ie UP TRANSMITTER BUFFER 
ina FOR VECTOR SETUP 


Rl 
Slr VECTOR 
:XMT INT LVL ADR 


aE Pi 


t 
oO 


0900 CO C900 CGD 39 NI 99979 >. 
4 


aw 
TS ee eT ey et ee ed os | be | Oe 


cococo coceca.oo 0o 0.00 00 00 00 00 CD CO OO 
On 4200 PU C000 NOP On Goro 000s) 


furururunirue 





-11-D207A-0 
i! TSTls 
oo2554 912737 
O9eSte Olie737 
Ooes78 Sos7rr 
092574 o0so77 
992690 305577 
992694 0914¢5 
O0es0& i94090 
O02619 9004C3 
O0e6ie Ole6c! 
082614 10400! 
O0261& O005726 
D2b2G Ol2737 
oGeset 0650327 
O9263e i1f4429 
COZ634 312777 
COes4+2 022777 
S02e650 00:90! 
CSe6Se 104000 
092854 032777 
OSes62 80140) 
b92664 104000 
SO2bE& O0So77 
602872 222777 
092799 99140! 
Ode72e 104909 
o3e704 1044C0 
092706 012777 
OSe714 0322777 
CSe722e 06103! 
BSe724 Lasoo 





¢ TESTS MACYL! 271732) 21-SEP-76 i3:43 PAGE 20 
SR EXISTS 
j PRPRRERERA EERE LEELA ERR AR ALE LER ERE EERELERREREFRRERER ERERRRERF LE FERS LES F > 
; TEST 1: TEST ABILITY_TO REFERENCE CSR WITHOUT TRAPPING 
: AND ABILITY TO CLR CSR. 
:PROSABLE FAULTY LOGIC: MI0S; M72eS (De-6) £29 
SSSTETSTTSTTCTCCTOTTTCTTTTTCTECTSCCOTETETTTT Tee rite ret rer ee TTereretierey 
soceo4 TST1: MOV Bl$, — ae4 :SET UP TIME-OUT TRAP VECTOR 
aloiayatal3 MoV #LEVEL7, au 
TST acSR ; REFERENCE CSR (READ) 
CLR ICSR :CLEAR CSR (WRITE 
ADC acsR :CHECK CSR (READ AND WRITE) 
3E9 2g ;BRANCH IF Ok 
HLT :CSR NOT CLEARED 
3R 23 :SKIP ISR 
18: MOY (SP)+,21 :S0VE RTI ADR FOR TYPING 
HLT +1 CAN'T REFERENCE CSR! 
TST (SP)+ pea CLEARING STACK 
go0804 2S: MOV #5, 284 
CLR aad 
SCOPE 
}  -ntaiealaatatata ge tt gp th een Aah th er ae nina atti 
- TES TEST THAT CSR BIT! CAN BE SET AND CLEARED 
SDRASABLE FAULTY LOGIC: M728S (De-2) Ees,£7, (De-4) E47. £64 
1 ERERLAA EERE RARE ERE ER AREA ER EASE ERE AAR AEE EERE EA EERE EASE ELAR SES EERE SES 
176346 TSTe: MOV #BIT!1,aCSR :SET BITL 
?7E240 BIT #8171: 2CSR :CHECK THAT BIT! IS SET 
BNE +4 BRANCH _IF_Ok 
HiT -8SR BIT] FAILED TO SET 
176226 BIT e177775,aCSR  _ s CHECK THaT No OTHER BIT SET 
BES +4 NCH 
HiT SEXTRA BIT SET IN CSR 
CLR acsr :CLEAR BIT 
176310 BIT aBfT, acsR :CHECK THAT BIT1 IS CLEARED 
BEQ “BRANCH IF OK 
HLT :¢SR BIT] FAILED TO CLEAR 
SCOPE 
++i pcan hgh ar td eh ont + gaa ge typ tl aatainttatamaiaiate 
: TEST TEST THAT CSR BIT2 CAN BE SET AND CLEARED 
‘DRSeGEIE FAULTY LOGIC: MP29S (De-2) E2s, E?, (D2-4) E47. £64 
SSPeESGuEAGaAEAEAEHEELENAEOTEDEEEEERALEESASAGRBRIRERATEAOESEAAAR EARRINGS 
176274 TST3: MOV #B1T2,2CSR :SET BIT2 
17Bze6 BIT BITS. acsR : CHECK THAT BIT2 IS 
BNE +4 “BRANCH IF OK 
HLT SR BITS FAILED TO 





mm ee 

























MAINDEC=11-D2DIA-D_. DILL LOGIC TESTS MACY!! 276732) 21-SEP-76 i3:43 PAGE 21 
D278 .P il TST: TEST SITe oF CSR 
326 002726 O22777 177773 176254 3iT #177773,3CSR CHECK THAT No GTHER BIT SET 
83> 555734 OO1401 BEO +4 : BRANCH 
58 553736 «154e00 HLT EXTRA BIT SE IN CSR 
330 992740 ooSoT? 178244 CLR ICSR :CLEAR BIT2 . 
831 602744 C3277? 809504 i7se3s BIT #8172, aCSR i CHECK THAT BIT IS CLEAREC 
833 532752 80140! EQ +4 : BRANCH 
33 p52754 104000 HLT 'CSR BIT2 FATLED TO CLEAR 
35 20275 104400 SCOPE 
5 
337 j RERRRERRRERRRRERAERESESEEREREREREREREREERELEREE EEE SEER REEL LEE E EER ERAT 
38 EST 4: TEST THAT CSR SITS CAN BE SET AND CLEARED 
535 ‘PROSABLE FAULTY LOGIC: MPZeS (D2-2) E4.E18, (De-4) E47. E64 
ay : PPPTSCCTTCET TEST TTC T TTT TTT TTT TTT eT eT Te TTT TT TTT TTT Tete TT TT eer eee Tes 
Sub spe760 O1e777 00100 178222 (TST4: MOV #BITS, ICS :SET BITS 
843 BoS76— O32777 800100 176214 BIT #8175; 3CSR :CHECK THAT BIT& IS SET 
844 O5e774 901901 SNE +4 ‘BRANCH I 
et Bce77e 10sto0 HLT :CSR BITE FAILED TO SET 
ST 
S47? 9c2cos o2e777 177ET? «176202 BIT 8177677. aCSR s CHECK THAT NO OTHER BIT SE 
848 0935996 O9:401 REQ +4 :BRANCH IF OK 
S43 003010 if4sc0 HLT -EXTRA BIT SET IN CSR 
| 85: oo3012 poso77 17¢:72 CLR 86 acSR :CLEAR BITE ; 
B52 BO3016 S2e777 Go5100 176164 SIT #BITS,aCSR : CHECK THAT B17 6 IS CLEARED 
853 992004 do1401 BEG +4 : BRAN 
| 5 g53026 04098 HLT CSR are * EATLED TO CLEAR 
| BEE 003030 10440 SCOPE 
5? 
8cs Ser ee eT THAT caR BITa CON GE GET AND CteaRES 
i; 953 : TEST TEST THAT CSR_BITS CAN BE SET AND CLEAR 
| 9866 ‘PROBABLE FAULTY LOGIC: M?285 (D2-2) E6.E18, (D2-4) at E31 
| of: HRRRASEAARAREAEAE SED EREALAERERS RARE AN ES ARARSERREAARAREA DS RALEEE ERAS 
| §€3 902932 912777 900499 175150 TSTS: MOV #8178, 9CSR ;SET BITS 
: 864 853049 825777 Geosso 176152 BIT #8178; 9C5R :CHECK THAT BITS IS SET 
| 6885 ARaGKE 01503 BNE +4 : BRANCH K - 
| got 652058 104909 HLT :CSR BITS FAILED TO SET 
| §€8 po3Nss o32777 177377 176120 BIT 8177377,2CSR  ; CHECK THAT NO OTHER SIT SET 
| BES 653965 cor4o1 BEG +4 :BRANCH IF 0 
E70 soate2 104000 HLT :EXTRA BIT SET IN CSR 
| 875 on3ns4 ooso7? 176129 CLR 2CSR :CLEAR SITS 
873 602070 O3e777 Goo4o0 176112 BIT #3178, aCSR ; CHECK THAT BITs 1S CLEARED 
74 90307 o01401 BEO +4 :BRANCH IF | 
275 602109 ic4o0c0 HLT : CSR BrTa FAILED TO ¢! LEAR 
oo2ic2 104400 SCOPE 


or eR OOO OPTIC ens 
TEST 6: TEST THAT CSR BITiO CAN BE SET AND CLEARED 
: PROBABLE FAULTY LOGIC: MP29S (Da-2) E30 E24, (D2-9) E47.E3! 
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p RHR ET ERA RE KAA AE LRE REARS LH ERE EA ERE RE EES REEL EA ERLE LF ELEAF SFE FRILL ELSES ES 
TST&: MOV #81719, 9CSR iSET BITl 
BIT #81710, aCSR : CHECK THAT oo IS SET 
BNE ;BRANCH_ IF 
HLT :CSR BITIO FAILED TO SET 
SIT 8175777, aCSR ;CHECK THAT NO OTHER SIT SET 
Beg 4 ;BRANCH IF OK 
HLT ;EXTRA BIT SET IN CSR 
CLR acsk ;CLEAR BIT1O 
SIT #81710, a9CSR : CHECK gt BITiO IS CLEARED 
BEQ A ; BRANC 
HLT ;CSR Brio FAILED TS CLEAR 
SCOPE 


(om pee ge oe eee ea ee 
: TEST TEST THAT ie 8ITié CAN BE SET AND CLEARED 
PROBABLE FAULTY Bare 7288S (D2e-2) E5.E1, (De-4) E47, E31 
 SAEEaSTESSSEEESAEEESESHASESELSSSSOSANESGSELESSSESEADESESESHERRCEEREEDEH 


ST7: MOV #BITle, oxen ;SET BITle 


BI] w81T12.3 CSR : CHECK ee BIT12 15 SET 

HLT RGR a“ Tl2 FAILED TO SET 

BIT #167777,30SR — ;CHECK THAT NO OTHER BIT SET 
BEQ +4 SBRANCH IF OK 

HLT SEXTRA att Ser IN CSR 

CLR acsR CLEAR BIT12 

BIT sBIT12,205R SHECK THAT SIT12 IS CLEARED 
SEQ +4 ;BRANCH TF Ok” 

HLT :CSR BIT12 FAILED TO CLEAR 
SCOPE 


j RRERARARAARAREHE RARE LA EREAR ARAL ERERRERRERERE RHEL ERERRRR SRRAEERLR ALERT 
ST 10 TEST THAT CSR SIT14 CAN BE SET AND CLEARED 

; PROSABLE FAULTY LOGIC: M7285 {De-2) E3,E1, (De-4) EY7,E31 

+ EEEEEEREEKEE EAE EAE EEERE REAR EE ERE ER ERARERERERAEP EEE EESS AL ERARER TEED ARES 


Stic: MOV #81714, 3CSR ;SET BIT! 
BIT 1714, aCSR ; CHECK “TH BIT14 IS SET 


PN ; BRANCH OK 

HLT ;CSR BITI4 FAILED TO SET 

BIT #137777 , aCSR ; CHECK THAT | 1 0 THER SIT SET 
BES +4 “BRANCH IF 

HLT ;EXTRA BIT sy IN CSR 

CLR acsk s CLEAR grris 

BIT sBIT14,IC0SR sCHECK THAT BITL4 IS CLEARED 
BEG ot  ORENCH IF OK 
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STEST lle TEST THAT RECEIVER ENABLE (BITO OF THE COR, CON Ge cet 


CLR RS :SET UP COUNTER 
37s #8173, CSR = ;SET CLEAR MOS (8173) 
1$ MOV acsk Ri : FR 
SIT gB1T3, Fl : CHECK CLEAR MOS (BIT2) 
BEQ eo :BRANCH IF OK 
HLT+1 “CLEAR MOS (BIT3) SET (WRITE-ONLY) 
-Rl = CONTENTS OF CSR 
SIT #8IT4, Ri: :CHECK CLEAR MOS FLAG 
BEQ 23 SRANCH IF CLE 
nEcB ORS :HAIT FOR MOS TO CLEAR 
BNE 13 -SRANCH IF MORE TIME i 
HLT+i “CLEAR MOS FLAG (BIT4) FAILED TO CLEAR 
:Ril = CONTENTS OF CSR 
23 Mp s8IT2, 8 : “HECK THAT ONLY MATNTENANCE BIT SET 
SEG +4 = BRANCH IF OK 
HL T+! CLEAR MOS CLEARES MAINTENANCE 


SON & 52 
Is #8170, CSR Ser “RECEIVER ENABLE 
mai) acsk,’ RI :SAVE CSR 
BIT s8IT%, CSR CHECK THAT T RECED) VER ENABLE SET 
BNE +4 SSRANCH IF 0 
HLT +1 RECEIVER ENABLE FAILED TO SET 
7Ri = CONTEN NTS OF CSR 
CMP #5, acsR CHECK REST OF CSR 
BE +4 BRANCH IF Ok 
Hi T+] :CSR ERROR 
‘Bl = CONTENTS OF oSR 
NOTE: IF THE TTY MODULE IS BEING USED AND DONE (BIT?) IS SET 
4 Ve ERROR COULD BE SUE To NBEN NTENANCE OR CLEAR MOS NST RORKING. 
pic wEITO, 3CSR CLEAR RECEIVER ENABLE 
MoV 2c R} ;SAVE C 
CMP ac 3¢SR  =—s-«s CHES CPR. 
BEQ : H IF OK 
HL T+} ;RECEIVER ENABLE DION’T CLEAR 
OTHER CSR BIT SET 
=Rl = CONTENTS OF CSR 
SCOPE 
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HLT ;CSR BIT14 FOILED TO CLEAR 
SCOPE 


yTEST 11: ber 1 THAT RECEIVER ENABLE (8170 OF THE CSR. CAN SE SET 
AND CLEARED, AND THAT CLEAR MOS (81 13) Is lie rte CNLY. 

PROBABLE FAULTY LOGIC: M7285 (D2-2) E26,£36,£7,£24, (02-8) E17 £14, E15 

CUSTrrerrrericrrrevrreerirertrrstrtrstttrtttretrterir itt rrr terre errr" 


STil: MOV #BITZ, aICSR ;SET MAINTENANCE MCOE (8iTe2) 


j SSOSESESERNESENDSISST SN SESUSCREENSANSHORSSESESESEO ROLES OR OERCSRORERENES 
TEST le: TEST THAT CSR RESPONDS PROPERLY TO BYTE COMMANDS 

; PROBASLE FAULTY LOGIC: M7285 (De-4) E47 

s REAKERERE REEF ES REREERREAAEEE SRR EAEREERAREARAR APLAR ARRAS ARETE AS EA AE ARRAS 


ee ee + - 


(-- 
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| SHESRD.F2: TET12: TEST S\TE ADDRESSING OF CSR 
ce TREY PARTED [EEEGS 175555 TST12: Moy — 052506,aCSR —; SET TEST NUMBER IN cor 
So DbSHS2 idSarr IP Sha2 cLRS = aC SR CLR EVEN BYTE 
| 6©§55 SOS5E O15701 i7ssee Mov ¢SR, RI :SAVE CSR 
| 93° Seouee Geerd; OS2400 CMF = #052400,F1 :CHECK CSR 
| $2 555-66 80145) SEQ 44 :GRANCH IF OK f 
f 6 $93 C0347O 1400! HiT+! ;EVEN BYTE CLR FAILED CN CER 
| 3000 :R1_= CONTENTS OF CSS 
| SSSI OO3472 OLE7T? 982505 i7581¢ MO' wOS2S06,a0SR SET TEST NUMBER IN ccm 
tees sodsoo 6 Scs]2s7 051210 INC CSR SINC TO COD BYTE 
552 303504 105977 178809 CLRB «aS :CLE_OODD 
ta53 303510 C337 001215 be: 2S SR TRESTORe TO EVEN 
155s 653515 Sit?d1 175470 MOV = CSR, :SAVE CSR 
2258 O53522 922701 900106 oMP eC LO RL ; CHECK C3R 
TSS" 53524 091401 BQ 44 :BRANCH IF OK 
; seog Scssee [54081 HLT+1 :CDD BYTE CLR FAILED ON C 
—: :R1 = CONTENTS OF CSR 
| S12 9035320 1044C0 SCOPE 
| 7225 Ft elie gar atier Netra cir tsar areata tear ge 
| i5t% : TEST TEST THAT THE BIS AND SIC INSTRUCTIONS SET GND CLEAR RW 
| i0is BITS OF CSR 
| i536 [PROBABLE FAULTY Logic: ‘#7285 <D2-4) E47 
! 22:2 SERRE KER AEF FER EELRERF FLERE EELS EERE LERLERRE RERE REESE LESLL ALE REF RE LER AERS 
| $599 oo2sse oosov? i7suse TST13: CLR  2CSR ;CLEAR THE CSR 
| 132C 303536 917701 175446 MOV ck, RI : CHECK AND SAVE CSR 
| cht posses 01401 BEQ ay :SRANCH IF CLERRED Ok 
| 1088 903544 104001 HLT+1 ‘Rese? FAILED To CLR CSP 
| 7534 903546 oS2777 oOSes06 175434 BIS #052506, aCSR ;SET ALL RW BITS OF CSR 
| [535 903554 022777 O82506 1754ze ay 052508, CSR jgreCk THAT THEY GoT SET 
| 2326 903562 sSo14o1 BEg eer *eancu fF 
«ge CoS5e4  o4009 HLT SREG FAILED GMP 
| ove 
| IDES 03566 o4e777 OS2505 175414 BIC #052506, SCS pCLEAR CSR 
| «TRC 803574 017701 175410 Mov = CSR, RL ;CHECK AND SAVE C 
| $031 003600 901401 Beg HY ‘SRaNCH TF CLEARED 
| 1532 803652 104001 HLT+1 Pere FAALED TO CLR CER 
| 20g4 003604 104400 SCOPE 
1536 ret ia WERT BITE OF TCD FOR EDR TTE Conic 
1037 “: TEST BITS OF TCR FOR READ/WRITE CAPAEILITY 
1338 i PREGABLE FAULTY LOGIC: NTe8E (Deve) ALT, ceca) ES 289,21 £43, £91 
than 5 RERAREERER ELLER RELEASE RA ARE LE FRA EERE EE FESERERERRRA SESE A RESP EAEE ESS SES ER 
_ TO$l 902606 012777 177777 175400 TSTI4: MOY § 8177777,2T0R ;SET ALL SITS OF T 
| $042 903615 617701 175274 MOV =o OTCR, RI iGheck ANG SAVE Tes 
| 1543 603620 022701 177777 CMP = s«#177?77,R1 CHECK THAT Atl THE BITS ARE SET 
| 7544 603624 901401 BEQ +4 : BRANCH acs 
| 1045 C3626 104001 HLT +1 SBIT(S) OF TCR FAILED TO SET 
“4? (002630 ogs077 175360 CLR — aTCR ;CLEAR TCR 
642 502624 917761 175354 MOY gTcR, Rt :CHECK THAT IT CLEARED AND SAVE 
1648 203640 80140) BEQ sia #4 :BRANCH IF CLR 
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$ MACYIL Q7.732) =2l-SE&-7& 23:43 PAGE 28 
NSMIT SO9N ENSSLE 
A . ‘ ; THEN MASTER TRAN SCAN ENGELE 
cs; BIC BITC, sTCR sCLEAS IT OUT 4 
MOV acsk, FR} sSHECK AND SHVE TRAN PERCY 
BF, 274 sORONCH IF OK 
HLT?) ; Sal READY “BION'T CLEAR. 
SoOPE 


:TEST 22: TEST THAT a ERRUPT PSES NOT OCCUR AT LEVEL 7 
;PROBSSLE FAULTY LOGIC: M7SE1 WIRING, PROPER PRIORITY CHIE 
: SPSPEVHSSRSLSESRHERSLSSSESRLELSLEFSRELSEPSERAHSKSREEEFERSESRSLE SHAE SES FSS 44454 


TSTz2: MOV alSR22, aXMTVEC + UP_XMTR INTERRUPT VECTOR 
Moy ag SNMTLVL LEVEL 7 
Bit aaMO Sah iATEBR PS LEVEL 
sis #350, 38PS :SET PS TO LEVEL 7 
MO #040900 .a058 ;SET TRAN MASTER INT. ENG2LE 
MOv eB8ITC, arc :SET TRAN CONTROL SIT, LINE C 
1$: MOV acSk, 1 sWAIT 
SFL } 
BR END2Ze2 :Ck, BRANCH IF NC INTERRUPT 
TSR22: HLT 2 SHO ao WAVE INTESRLPTED AT LEVEL 7 
Moy wENCEE,(SP)  ;MOVE NEW RTI ADR ONTO STACK 
Mie 
ENOZe: MOV XMTLYL, SAMTVEC 
MOV e1ct axmTLVi 
CLR aTcR 
a oe 
Bic #340.a8Ps 


wm 
«> 
©O 
“U 
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e Sree ee ee teen ae ene eee ee ee eee 
:TEST 23: TEST THAT INTERRUPT DOES NOT OCCUR AT LEVEL 

sPROSRSLE FAULTY LOGIC: MP2] WIRING, PROPER PRIORITY CHIP — 

+ REEREEELELLESLRLAEEREREPRASERAERRERRARLSRAPREPRARPER RES ERE E ESTE TEASER LS 


TST22: MOV BISR23,QXMTVEC ; 

MOV W340, QAMTLVL L 

BIC #340 *D#PS on (eve. 

SIS ate. : Q 

‘SY asundae Sc 'SET TRAN MASTER INT. EN 
‘OV #31TC, a °SET TRAN CONTROL BIT, L 
18: Moy ack,’ OR! WAIT 

PPL i$ 

3k END22 :OK, SRANCH IF NO INTERRUPT 


ISF23: HLT :SHOULON’T HAVE INTERRUPTED AT LEVEL & 
yy BEND23, : SP ;MOVE NEW RTI ADR ONTO STACK 
‘ 
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MACYS 27(732) 21-SEP-76 i3:43 PAGE 29 
TERUPT LEVEL 


ENOe3: MUV XMTLVL, IXMTVEC 


MOY SIOT, = OXNTLVL 
CLR TLR 

CLR desk 

BIc #340, a8PS 

SCOPE 





2s lig I gS a elt ae 5 ot eo ac 
43 TEST THAT INTERRUPT SCES NOT OCCUR AT LEVEL 5 

: PROBAS! LE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHI 

y RRHRREARALEERLEREH EE RAL AR ERER EERE ELAS EERE ELE LAER SE EERE EERE SEEPS RSE ESSE 


TSTe4: MOV aISR24,aXMTVEC ;SET UP Oat INTERRUPT VECTOR 


MOV e340, XMTLVL :AT_LEVE 
i¢ #340, a8PS :CLEAR PS LE\ 
31S #240, a8PS SET PS j 


7S To LEVEL § 

OO,95SR  ;SET TRAN MASTER INT. ENABLE 
wBITC, atck  ;SET TRAN CONTROL SIT, LINE © 
2 Ri :WAIT 


MOV #040400, 3258 

MOW T 
1$ MOV acsr, 

BPL l 

BR ENDE4 20K, BRANCH IF NO INTERRUPT 
TsRe4: HLT tAGGE Nes. T HAVE INTERRUPTED AT LEVEL & 

ey sEND24, (SP) VE NEW RTI ROR ONTO STROK 
ENDe4: MOV XMTLYL, &XMTVEC 

MOV SIOT, = aXMTLVL 

Cu aTCR 

cL acsR 

BIC #340, a8PS 

SCOPE 


iTeeT sc, TEST THAT INTERRUPT OCCURS AT TE) se 
TEST THAT INTERRUPT OCCURS AT LEVEL § 
SP aaate FAULTY LOGIC: M7821 WIRING, PROPER PRITEITY Ier= 
 cokarkhcnnitantiatisiadiothishatetionssatesonkinncieteresaenmuanunta 


TSTeS: MOV sISR25, IXMTVEC ;SET UP XMTR INTESALET .E>7 7S 
Mov W340, aXMTLVL =: AT_LEVEL 7 
BIC #340, 8PS iCLEAR PS LEVEL 
SIs #200,38 :SET PS TO LEVEL & . hu 6 
MOV #0409950, aCSR :SET TRAN MASTER INT, ENGGLE 
MOV #BITO, TCR :SET TRAN CONTROL 32°, INE 2 
1$: MOV acSR, Ri ;WAIT 
BPL 1$ Bas 
HLT sSHOULD HAVE INTERSUPTED AT .£.E. s 
ch END2S ; CONTINUE 
ISR2S: ay sEND2S, <SP) :MOVE NEW STI GOR ONTS STSCA 
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MOV BI9T, = a@XMTLVL 


CLR ale 

CLR acsk 

BIC #340, a8PS 
SCOPE 





 RESHAEAARERERERERAERE SERED EERE EERE AREER PR EAS EERE FESS EER REESE ESSE EE 
:TEST 26: TEST THAT INTERRUPT OCCURS AT LEVEL 

PROBABLE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHIP 
RELRAEAEREERER RARE RARER EREL FEAF EELAREREEAREFRARRE LEER ERED FEEL ES L4G FEE OF 


TSTeé: MOV eISR2E, aXMTVEC set wee INTERRUPT VECTOS 


MOV 8340, IXMTLVL 
BIc » #349, daPS Cpe PS LEVEL 
Sis > #l40,daPs set PS TO, 


I : LEVEL 3 
MOV #0404900, 9258 SET TRAN MASTER ie ahi a 
MOV s8ITC, aT CR SET TRAN CONTROL SIT, LINE 


1S: Moy acSR.’ RI! S WALT 
SPL 18 i 
HLT Shout HAVE INTERUPTED AT LEVEL 2 
ag END2E ONT INUE 
ISR25: MOV BENCZE, (SP) sMOVE NEW RTI ADR ONTO STACK 
RTI 
ENDZE: MOV XMTLVL, OXMTVEC 
Moy SI0T, | aXMTLYL 
Rak 
Sic #240, 28S 
SCOPE 


Pht ay alee oO ge te a wns ht one age > ier ae sale atacand 
: TEST TEST THAT INTERRUPT OCCURS AT LEVEL 2 
‘PRegasi FAULTY LOGIC: M82! WIRING, PROPER PRIORITY C 
 PepeneEReSPaGasuseneceusonnscenacatabesaueseeansnseanersssecnecenensnes 


TSTe?7: MOV 8iSR27, JXMTVEC aT UP XMTR INTERRUPT VECTOF 
3RT LEVEL 7 


MOV #34C, SXMTLVL 
349; daP 


BIC #240, a8 :CLEAR PS LEVEL 
SIs #100, 3aPS SET PS To LEVEL 2 
Moy wO40400,3CSR § :SET TRAN MASTER INT. ENABLE | 
MCV w3ITo, gTcR ;SET TRAN CONTRCL BI7, LINE O 
18: MOV 305k, 1 sWALT 
BPL 1$ 
HLT :SHOULD HAVE INTERRUPTED AT LEVEL 2 
3 END2? ; CONTINUE 


SRev: MOV BEND2°, SPI sMOVE NEW RTI AOR CNTO STSCK 
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coss2é 104400 
995430 2777 
005436 012777 
SSS444 042737 
005452 052737 
005460 012777 
DOS+e 12777 
%S5474 017701 
995509 100375 
cosso2e 104000 
DSs504 o02403 
COSSOE 012716 
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STS MACYI2 27°72) 21-SEP-76 :3:42 PAGE 21 
INTERUPT LEVEL 
END27: MUV = XMTLVL, OXMTVEC 

MOV = JOT, @XNTLVL 
cl oR : 
CLR aS 
BIC = - 8340, 28PS 
SCOPE 


j RELAPRARARAERERDRERATAEFESEREREEEESEAE EERE REALL ERE E EE ESTEE TOES ESSE EES 
: TEST TEST THAT INTERRUPT OCCURS AT LEVEL 

;PROBABLE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHIP 

LRRER REAR ALE RARER EERE REEES ERE R SEERA LED LER EEEEREREFREEEREES ER SEEES TEST EEE 


TSTSO: MOV sISRIC, IXMTVEC + ¥ ery INTERRUPT VECTO 


MOV gs4c, SXMTLVL 
BIC 8340; BPs RT eae PS LEVEL 
SIs #040, a8PS : SET PS 70 LEVEL 


1 
MOV = #040400, 50SR SET TRAN MASTER INT. ENABLE 
Moy BITC, “afCR SE T_TRAN CONTROL BIT, 


18: HOV Rk.’ OR} ‘WAIT 
HLT SHOULD WAVE INTERRUPTED AT LEVEL : 
BR END30 : CONTINUE 
ISR20: Noy 8END29, (SP) sMOVE NEW RTI ADP ONTO STACK 
i 
END29: MOV XMTLVL, SXMTVEC 
May #107, aXMTLVL 
CLR aTcR 
er 3CSR 
BIC 8340, 28S 
SCOPE 


157 pam ne te cee 
:TEST 31: TEST THAT INTERRUPT OCCURS AT LEVEL 0 

PROBABLE FAULTY LOGIC: M7821 WIRING, BRCPER PRIORITY CHIP 

5 EXERRERARL HERRERA ELLE RES EAERELE EER AERA ER ERERRERL RS LERERERALEPEARES ARLE 


TST31: MOV #1SR31 QXMTVEC ;SET UP_XMTR INTERRUPT VECTOR 
MOV #340, OXMTLVL ;AT LEVEL 
BIC #340) d8PS :CLEAR PS PEVEL 
SIS #000; 28PS -SET PS TO LEVEL O 
MOV #040990,3CSR § :SET TRAN MASTER INT. ENABLE 
MOV #31T0, “aTCR : SET _TRAN CONTROL BIT, LINE O 


1$: MOV dCSR, =} ;WAT 
BPL 1$ 
HLT i SHOULD HAVE INTERRUPTED AT LEVEL 0 
BR END31 ; CONTINUE 

iSR31: ey BENDS1, SP) ;MOVE NEW RTI GOR ONTO STA 


ae eee ne te ee eee TES OE I Seen Sn Vi Ca te ae Aes a 
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MALYL1 276732) 21-SEP-76 13:43 PAGE 32 
NTERUPT LEVEL 


ENO2i: MOV XMTLVL , IXMTVEC 
i OV ait @XMTLVL 
LR TER 
VLR acsR 
BIC #340, a8PS 
SCOPE 
CLR TIMER sINITIALIZE TIMER 


MOV #.+5, LAD ;RESET LOOP ADDRESS 
jEPLEPRRERREREREESRRESELEREER ESR ELLE ERERELEEREESEERELEE SESE ESE REELS FREED 


:TEST 32: TEST THAT LINE 0 CAN ron AND 
3 CEIVE A CHARACTER. 
: i CHECKS THAT DONE SETS iN’ REASONGRLE TIME, 


S$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7§: CHECKS THAT CHARACTER PRESENT CLEGRS 
95: PHECKS THAT DONE CLEARS 
:PROBABLE FAULTY LOGIC: M7285 (De-7) ALL; M7279 ALL; UART CARD 002 SERIES 
: S ERERERSEESEDEREEDESEDTEARERS EEE EEEEAEEE RGAE EDEEREEESERESAATEREREREEEOE 
INITIALIZE 
; DEVICE"CSH"REGISTER 
. Sel: 
tsT32: JSR PC, QRINITO 23172 = MAINTENANCE 
:BIT@ = MASTER XMTR SCAN ENS 
WAIT FOR MOS TO CLEAR ne 
: =) aS 
:SITO = RECEIVER ENABLE 
. BIS  s#BIT0, GTCR  ;SET_XMTR CONTROL BIT, LINE 2 
Lopa2: MOV acs," Ri ;HAIT FOR XMTR READY 
BPL Ss LOP32 
MOY 9 #377, 9 3TBUF =: SEND_A._ RUBOUT 
cL RO :CLEAR COUNTER 
1$: pecs RS SHORT WAIT LOOP 
ONE = 
TSTE © ac SR ;WAIT FOR DONE 
BMI BS ; BRANCH WHEN DONE 
INC =O ; TIME COUN 
BNE «1 :BRANCH IF NOT TIME-OUT 
MOV «© aCSR, RL :SAVE CSR 
HLT+1 DONE NEVER CAME UP 
:R1 = CONTENTS OF CSR 
2g BIS RO TIMER SAVE TINER 
MCV = ARSUF, «RI sPEAD THE FIFO Z 
BMI +4 SBRANCH IF CHARACTER, READY 
HLT+1 CHARACTER READY DIDN'T SET 
= SONTENTS OF RBUF 
28: BIT #70000, R! i eHE SK FOR ERROR SITS 


BEG +4 ;BRANCH IF NONE 
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2-2 b+ +p 0 + bob 


173405 


4$: 


a 
ts 


ivecT aa, TEST THAT LIME | CAN TRRGHTT BO 
THAT LINE 1 CAN TRANSMIT AND 
RECEIVE A CHARACTER, (ae } 
CHECKS THAT DONE SETS_ iN REASONABLE TIME. 


; TEST 


acy ga! } 
8) TRANSIT? brio” ge! 
HLT+1 


SCOPE 


CK 
; PROBABLE Faulty LOGIC: 


JSR 


Qe, 
O-4 
mo 
zw 





te fhale 76 13:43 PAGE 33 


Rl, 


Ri 


2igotcs, a} 


s ERROR IN RECEIVED CHAR 


R 
: UPL ICATE DATA WORD 
;MASK LINES 
;L INE # IN “on BYTE 
K LIN 


CH IF OK 
SWRONG LINE # RECEIVED 
sR1_= CONTENTS. OF REUF 


1 = LINE & 
;GET MASK OF CHARACTER 
CHECK CHAR LENGTH 


BR OK 
dpe CHARACTER LENGTH 
R1=DATA 


OM FIVFO 
'RB= MASK e's SET NOT EXPECTED: 
;REVER SE THE M 
;CHECK THE ate DATA 
:BRANCH IF 


:HRONG CHAR ten OR DATA ERROR 
RI=DATA FROM F1/£0 (COMPLETE XCD) 
e=DATA (LOM BYTE) EXPESTED 
READ FIVEO } 
:BRANCH IF CHAR PRESENT NOT SET 
:CHARACTER PRESENT STAYED SET 
:R1 = CONTENTS OF REUF 


4 F OK 
-DONE DION’T CLEAR O8 THES ISS Essrs 
;R1 = CONTENTS SF CSR 


ig 


;CLEAR CSR 


G 
CHECKS THAT eSRRecT ATR WAS RECEIVED 
eK THAT “neg PRESENT CLEARS 
S THAT DONE CLEAR 
M7285 (De-7) ALL: M7279 ALL; 
fEREERARRAS HAE ERAEEARREREREERR ARES EER EERERRAREARERE AR ERASSE SEER E EER ERA ES 


INITIALIZE 
DEVICE*CSR" REGISTER 


SET: 
DSINITD :;81T2 = MAINTENANCE 
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MACYL! 27{732)_ 21-SEP-76 


TS 
LINE 1 TRANSMIT AND RECEIVE LOGIC 


:BIT3 = CLEAR MCS 
Byaaty -BITB = MASTER XMTR SCAN ENP 

:WAIT FOR MOS TO CLEAR ast 
: :BITO = RECEIVER ENABLE. 

31S WBIT1, @7CR  ;SET_XMTR CONTROL BIT, LINE ! 
LOP32: MOV ase,’ RI WAIT FOR XMTR READY 

BPL LOP33 

MOV #377,  aSTBUF  ;SEND A RUBOLT 

CLR R5 :CLEAR COUNTER 
13 ECE RS :SHORT WAIT LOOP 

TST8 acsR :WAIT FOR DONE 

BMI 2$ :BRANCH WHEN DONE 

INC RO : TIME COUNTER 

BNE 1$ : BRANCH IF NOT TIME-OUT 

MOV 3CSR, RI 

Hi T+} BONE NEVER CAME uP 
23: BIS RO TIMER :SAVE TIMER 

MOV DREUF, :READ THE FI/FO 

+4 RANCH IF CHARACTER REAQY 


4$: 


6$: 


870000, R1 
+4 


Ri, 2 
#170377, Re 
si 

a, & 


+4 


@RBUF, RI 


:B 
; CHARACTER READY DIDN’T SET 


3B 
:OUBLICATE DATA WORD 


IN 
LINE # IN LOW BYTE 
; CHECK ten os 

; BRANC H IF ox 

; WRONG LINE # nee ire 
:R1 = CON Toms _— 
:B17S8-1 ll = 


‘BR IF van 
: WRONG eee ee LENGTH 
;RL=DATA FROM FI/FO 

;RO=MASK Kee SET NOT EXPECTED) 
pare 6 Oe 

; CHE HE ACTURAL DATA 


; BRAN H_IF Ok 
WRONG CHAR LEN OR DATA ERROR 

{RISDATA FROM FI/FO (COMPLETE NORD) 

:RE=DATA (LOW BYTE) EXPECTED 


READ FI/ 
:BRANCH_IF CHAR PRESENT NOT SET 
; CHARACTER PRESENT STAYED SET 
;R1 = CONTENTS OF RBUF 
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MAINDES-11-D2078-2 OJ11 LOGIC_TESTS MACY!! 271732) 21-SEP-76 3:43 PAGE 35 
D2D7AG.Pil T5733: TEST ALL OF LINE 1 TRANSMIT AND RECEIVE roere 
1610 OCS134 O17701 173050 9¢: MoV acsR, RI -SAVE THE CSR 
tS11 S8€!se d22701 fodsas CMP #190405 21 :CHECK THE CSR 
1si2 908184 90:41 BEQ +4 :BRANCH IF OK Popes ith 
113 Oc6i4e 164001 HLT +! :DONE DIDN'T pLesP OF | OTHEP CSR ESRF 
1525 :R1 = CON TENTS OF CSP 
1615 95150 ooso7? 173040 SLR 3TCR CLEAR TCR 
iS16 Sae1s4 §osaer 373635 rR aCSR CLEAR CSR 
téi> SSSiEo 14400 SCOPE 
leis 5-5-5} -heahalalaaladaal-t-b-4 Sab beh t-lalad teh Salted Strid 4 Seboh- Settled ala llalalalalalelalalalelale 
£26 TEST 34: TEST THAT LINE 2 CAN TRANSMIT GND 
ge! : RECEIVE A CHARACTER. (377) 
LEE : 1$: CHECKS THAT DONE SETS IN REASONABLE TIME, 
iss : 23: at THAT CHAR PRESENT IS i 
£35 : 38: CHECKe THAT NO ERRORS IN I RF 
re25 : 4g: KECK THAT RIGHT LINE &# (2) IN FIVFO 
183 : S$: CHECKS FOR RIGHT CHARACTER LEN 
| t§3? : 53: CHECKS THAT CORREST DATA WAS RECEIVED 
7828 : 73: CHECKS THAT CHARACTER PRESENT CLEARS 
"639 : Q§: CHECKS THAT DONE CLEARS 
Pricle :PROGASLE FAULTY LOGIC: M728S <De-7) ALL: M7279 ALL; UART CARD 002 SERIES 
i$32 ERE ESERERAERERRE RD AAD SEEAA EERE ESS SEALER EERES AEE ADEE EE EESED ASAT ERED ES 
| 1e35 : INITIALIZE 
| 1835 : DEVICE" CSR" REGISTER 
| E35 SET: 
| 1536 O08:g2 CONTE? cISSe6 tsT34: ISR Po, GBINIT i31TE = MAINTENGNCE 
£37 -81T3 = CLEGR MOS 
| T6539 eile = GzeSER veer scan Ne 
| 3639 sWAIT FOR MCS TC CLEAR 
' 3649 . SET: 
i ow tw r wee le 
164: : :SITC = RECEIVER ENABLE 
| 1843 CDeIEe OS2777 990094 173020 ars #8172, STCR  ;SET XMTR CONTROL BIT, LINE 2 
/ 1885 606174 017701 1730ic LOP24: MOV acs R! SHIT FOR XMTR READY 
| IBS 296200 150375 BPL LOP34 
i646 906202 012777 900377 17300€ MOV $277, a2TBUF ;SEND A SUBOUT 
1647 SO6219 905000 CLR RO ;CLEAR C 
1648 O5S21e 105305 1g Deca ORS : SHORT att ‘Looe 
'  JeHS Aesi4 o0137e BNE 1$ 
| 1850 08216 105777 172766 TSTB  3CSR WAIT FOR DONE 
| 1851 606222 190405 BMI 2$ :ERANCH WHEN DONE 
_ 1652 956224 995200 INC RO stirs Col 
1653 006226 901371 BNE 1§ RANCH IF NOT TIME-OUT 
1654 96239 O:7701 172754 Moy acsR, Rl ee VE CSR 
155 906234 10400! HL T+1 : DONE NEVER CAME UF 
156 :R1 = CONTENTS OF CSR 
1657 006226 oOS0037 £01302 23 BIS 9 TIMER SAVE 
1658 D06242 917701 172744 MOV aReUF, Ri READ THE FI/FO 
e593 O06e4E 100401 BMI +4 :BRANCH IF CHARACTER EADY 
ig60 Oe2s0 104c01 HLT +i ; CHARACTER READY DIDN'T SET 
i661 :Rl = CONTENTS 0 SUF 
1£62 oOO252 02270: a7o0o 28: BIT 870000, RL : CHECK FOR ERROR BITS 
tE63 CfESEE OCT4Ol BEO +4 :BRANCH IF N 
ts64 OCESEO josee} HL T+] sERROR IN RECEIVED CHAR 
gee “Rl = CONTENTS OF RSLF 
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Tl 
4$: MOV Ri, :;DUPLICATE DATA ORD 
BIC 9170377 ,Re ;MASK LINE 
SWAS Re ;LINE # IN LOW BYTE 
cMPe #2 R2 ;CH LINE # 
BES +4 ;BR IF OK 
KUT+! “WRONG LINE # RECEIVED 
:R1 = CONTENTS OF RELF 
;BITSB8-11 = LINE # 
53 MOVE DOILEN, Re ;GET MASK OF CHARACTER 
sI78 Re, Ri ; CHECK CHAR LENGTH. 
BEG +4 RANCH IF OK 
HLT+2 : WRONG vores BENG TH 
:R1=DATA FROM FI/ 
. : RO=MASK soa 'S = “NOT EXPECT 
os: TOMB Re REVERSE THE M 
oMeS Ri, Re ; CHE ECK THE FCTURAL DATA 
3 ;BRANCH IF OK 
HLT+2 : WRONG oe LEN OR DATA ERROR 
:RI=DATA FROM FI/FO (COMPLETE ii 
:Re=DATA ‘Lol BYTE) EXPECTED 
7$: MOV SRSUF, R! : READ FI/FO 
BPL 24 ;SRANCH_IF CHAR PRESENT NOT SET 
HUT+] ; CHARACTER ety STAYED SET 
:R1 = CONTENTS OF RBUF 
8S: MOV CSR, Ri ; SAV VE THE CSR 
CMP #1004058} s CHECK THE CSR 
BEQ +4 :BRANCH IF OK “ 
HLT+1 :DONE DIDN'T CLEAR OR OTHER CSR ERROR 
x Rl _= CONTENTS OF CSR 
CLR TOR CLEAR TCR 
CLR aCSR ;CLEAR CSR 
SCOPE 
y RAFRRARES ERAS RAE AEA ERK ER EAE EEL EKER AREA EL EA EARL A LKR R EASES ERES SEAL EA ELEE 
sTEST 3S: TEST THAT LINE 3 CAN TRANSMIT AND 
: RECEIVE A CHARACTER. (377) 
; i$: CHECKS THAT DONE SETS IN REASONAGLE TIME. 
; e$: CHECKS THAT CHAR PRESENT IS IN FO 
: 3$: CHECKS THAT NO ERRORS IN 
: 4$: CHECKS THAT RIGH NE # (3) IN FI/FO 
; 5$: CHECKS FOR RIGHT CHARACTER LENGTH 
; 5$: CHECKS THAT CORRECT DATA WAS RECEIVED 


7$: CHECKS THAT CHARACTER PRESENT CLEARS 
: 8$: CHECKS THAT DONE CLEARS 

;PROBABLE FAULTY LOGIC: M7285 (02-7) ALL; M7279 ALL; UART CARD 093 SERIES 
1 HERA ES EEA SAAN HEHE EEAELRAEE EASE EERE RE AEARARAAAR EERE EAS EE RELEASE ERED ED 


LIZE 


: INITIAL 
: DEVICE" CSR”REGISTER ery 
tST35: ISR PC, aeINITO :81t2 = MAINTENANCE 
;B1T2 = CLEAR MOS 
;BITS = MASTER XNTR SCAN ENS 


ee ee ee ee ee + ee. 


----- 
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MAINDECS11-DZOZA-D___ DJ] LOGIC_TESTS Nae vit cee? 21-SEP-76 12:43 PAGE 37 
OTATAD.PLY TS735: TEST ALL GF LINE 3 TRANSMIT AND RECEIVE LOGIC 
1722 sWAIT FOR MOS TO CLEAR 
1723 : SET: 
ire4 : ;BITO = RECEIVER ENAELE 
1-5 ; 
17EE 006266 OSET77 900019 172¢20 BIS 88173, 270R | ;SET XMTR CONTROL BIT, LINE 2 
1727 O06374 Cl7701 172610 LOP3S: MOV acsrR, Ri ‘HALT FOR XMTR READY 
1728 996400 1592°3 . SPL LOP3é 
1739 H0E4NDs Ole77? on0377 172606 MOV 8277,  a3TBUF  ;SEND A RUBOUT 
i739 906419 05009 CLR RO ;CLEAR CCUNTER 
173] 66412 105305 1$: DECB ORS :SHORT WAIT LOOP 
1732 906414 091376 BNE 13 
1733 OOG416 195777 172566 TSTB = BCSR sWAIT FOR DONE 
i734 Ode422 190405 Shi 2g BRANCH WHEN DONE 
1735 006424 095205 INC RO :TIME COUNTER 
i736 S064ee «6051371 BNE 1§ ;BRANCH IF NOT TIME-OUT 
i737 806439 917701 172554 MOV 3cSR, Ri} -SAVE CSR 
1738 06434 104001 HLT+1 : DONE NEVER CAME LP 
i738 NTENTS OF CSR 
1 i750 o08436 950037 7291302 23: BIS RO TIMER ChE FIER 
i741 006442 OlrrOl i7e2b44 MOW DRBUF, RL  . :READ THE FI/FO 
i743 OOs44e =160401 QMI +4 :BRANCH IF CHARACTER READY 
i743 OOe4SC 1d4o0! HL T+! ! CHARACTER READY DIDN'T SET 
i745 Rl = CONTENTS OF RBU 
| i745 906452 032701 970000 2S: BIT 870000, R! !CHECK FOR ERROR BIT 
; i746 S06455 001401 REQ +4 ‘BRANCH IF NONE 
174? B0e4e0 TO405i HLT+1 ERROR IN RECETVED CHAR 
| 1748 *R1l = CONTENTS OF RBUF 
| 1748 :BITIY=UART OVERRUN 
|} 1785 :BITI3=FRAMING ERROR 
| 375i BITIZ=PARITY ERROR 
| i782 oos4e2 o1o1c2 ug: MOV Rl, R2 SDUPLICATE DATA WORD 
| i753 ODHBY O4E7D2 170377 Bic #120277 85 :MASK LINE® 
| 1754 58558479 805393 SWAB ORE ‘LINE # IN LOW BYTE 
| 4755 QGee7e 122768 ooo0s3 AMPB iS, «=—séR :CHECK LINE # 
| $756 556976 Oo14o1 BEG a4! BRANCH IF OK 
| 757 608509 10400} HL T+! . ;HRONG LINE # RECEIVED 
| 1758 ‘RI CONTENTS CF RSUF 
| 1755 ce ae :BITSB-11 =LINE & 
| [7&0 oossoe 117702 172600 ct: MOV QDILEN, Fe : GET NASK OF CHARACTER 
i i761 806506 130201 BITB Re, 8 ;CHECK CHAR LENGTH. 
| i762 Sts510 dOi4o! BEG +4 CH IF OK 
| 1763 5Cé512 ro4o0e HLT+2 SHRONG CHARACTER | LENGTH 
i 1765 : RO=MASK {BITS SET NOT EXPECTED) 
| $786 SOESI4 105102 &$: COMB sé REVERSE T 
| 37e7 OOESie 120102 CMPB sR, Re : CHECK THE MACTURAL DATA 
| 768 OO€29 oo14o1 BEG 4+ : BRANCH I 
| $768 806522 id4odz HLT+2 WRONG CHAR LEN OR DATA, ERROR 
| $770 !RLSDATA FROM FI/FO (COMPLETE WORD) 
|. Sort :RE=DATA Aes BYTE) EXPECTED 
| 3772 OOes24 017701 172462 7S: MOV QRBUF, R! ; READ FI/FO 
| 1773 096630 109001 BPL +4 BRANCH IF CHAR PRESENT NOT SET 
1774 O0€532 10490! iM T+] tROARGCTER PRESENT STAYED SET 
| 775 Rl = CONTENTS OF R 
i77E OCES34 O1770: 172450 eg: MoV aCSR, RE :SAVE THE oR 
1777 502540 82278: joowas CMP #100405. R! :CHECK THE © 
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B21) 1 Sts ests MACY!) 271732) 21-SEP-76 13:43 PAGE 4¢ 
SES* RC. CF CINE &. TRANSMIT AND RECEIVE Los 
swAl? FOR MOS TO CLEAR 
: SET: . eS 
¢ sBITO = RECEIVER ENAELE 
p2s985 :7E2c¢ S515 83175. QTCR — ;SET XMTR CONTRO gif, LINE § 
TSSI7E Lopsm: May 0 ooteR” RI {AIT Foe Mite REAE 
95. LoP3 
p0037? «172i MON e277,  JTBUF ;SEND A RUBOUT 
ccR R= SFCEAR CCUNTER 
13 ES FS -SHORT WAIT LOOP 
172154 T7832 sR sWAIT FOR DONE 
Q*? 23 :QRANCH WHEN DONE 
ING te : TIME COUNTER ry 
SNE 1 BRGNCH IF NOT TIME-0U7 
ITELSE MOY 35k, Ri SAVE CSR 
wUTe! s DONE NEVER CAME LP 
sRl = CONTENTS OF ¢S& 
221302 23 S75 RO TIMER SAVE TIMER 
trls= Moy S8aur, of! READ THE FIVFO 
3”? = :SRANCH IF CHARACTER READY 
ies ;cHARACTER READY CICN'T SET 
:R1 = CONTENTS OF SSLE 
ereces 23 S17 ersccs, &! CHECK FOR ERROR BITS 
3E5 - :SRANCH IF NONE 
m7 4] :ERROR IN RECEIVED CHAR 
:Bl = CONTENTS OF RSLF 
:SIT14=UART OVERRUN 
:SITIZSFRAMING ERROR 
-BTiz=PARITyY ERROR 
<3: we, Rl, o2 sDUPLICATE DATA WORD 
170377 sic 812027782 :MBSK LIN 
SNA 1 :LINE # IN LOW BYTE 
9200s “MCS 4 gS., 2séRZ :SHECK LINE 8 
SES oo :ERANCH IF OK 
best SRRONG LANE 8 RECEIVED 
tR2 = CONTANTS OF RSUF 
:B27S8-i1 = LINE 
rrziee $3: “o.8 SDJLEN, f2 : GET Sage IF PHERSCTER 
3r78 R2, 8! : CHECK CHAR | LaNGTN, 
Bey we ;SRANCH IF 9 
HLT+e ' WRO No cHARSS 1 peNGTH 


sRISORTA FROM FI ‘FO 
: RO=MASK (BITS SET NOT EXPECTED) 
£3: CoM Re REVERSE THE MASA 
CME Ri, R2 : CHECK THE RACTURAL DATS 
SEG +4 : SRANCH IF OK 
HUT+e : WRONG CHAR LEN oR DATA EGROR 
:Rl= DATA FROM FI-&D (COMPLETE WORD) 
sReeDATR (LOW BYTE} EXPECTED 


| RS :BRANCH IF CHAR PRESENT NOT SET 
™ CHARACTER PRESENT STAYED SE° 
:Rl = CONTENTS OF RBUF 





172036 8$: MOV eCsR, A} SAVE THE CS& 
iCost03 oMP #L0C4C5 Rl ;CHECK THE CSR 
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3 +4 :BRANCH IF OK 
meet Soke O1oN" “CLEAR OF OTHER CSR EFROP 
CLR g728 :CLEAR T 

LR aCSR : LEAR Lee 


EPREPRRARRERRSPRLSEALARAFRASLLSELALESPLASLERELELSSFSSRALEFHSFSSF FP SSISS 


TEST 40: TEST THAT LINE S CAN Hol AND 


Ree, C377 
CHECKS THAT DONE SET S_IN REA GONE TIME. 
CHECKS not CHAR ROE TN HH, sh FIVE 


CHECKS THAT CORRECT DATA WAS RECETVED 

CHECKS THAT ear! re ne CLEARS 

CHECKS THAT D CLEAR 

;FROSASLE Faulty LOGIC: wsaes" (B2-7) RLL; M7279 ALL 7 CHSC ClO SEScES 
ey Mel A IL RS I Rh eR EB Bal 


INITIALIZE 


f00- IC UNE. LT 
“gee eae ie ee 
cs 
<r 
im m " m 
QO 
ax 
nu 
_ 
c> 
<x 
t 
py 4 


. 
. 
. 
. 
. 
. 
: 
. 
. 
. 
o 
e* 
: 


; DEVICE*CSR"REGISTER = 
*sT4c: JSF = PC, DBINITD ;2IT2 = MAINTENANCE 
sBIT3 = CLEAR MOS - 
:BITS = MASTER ©MTR SoSN ENS 
;WAIT FOR MOS TO CLEAR 4 
: SET: 
: :BITO = RECEIVER ENSSLE 
eIs sSITé, sTcR :SET XMTR CONTROL S27, LINE & 
Lopes: MOV acsk Rl sWAIT FOR XMTR SEaDY 
BFL Lépy4 
MOV 377, aTSuFr 3 SENC =) Rae 
CLR RD CLERR COUN 
18: SEs8 ORS Sense? GAT? Loop 
Be 13. ° 
TSTB acsk :WAIT FOR DONE 
aM] +} :9R ANCH WHEN DONE 
INC RD > TIME COUN TER. 
BNE 1$ : BRANCH IF NOT TIME-cUT 
MOV acsk, R! SAVE C CSR 
HLT+l 300 
pO = NENFENTS SECS ose 
23: SIs 0, TIMER FH TIMER 
Mov aRSuF, & oeaR THE SY 
ent eo :B ANCH IF A oeeacTER | RESDY 
HLT+] CHARACTER READY DIDN'T T S&T 
;R1_= CONTENTS OF RELF 
23: SIT e°cO002, &1 sCHECK SOR ERROR BITS 
BEG .o4 sBRANCH IF N 
HLT+! R IN REC Seve CHAR 








once > Brrr aneee were MACY 1 27.732) 21-SEP-76 13:42 PAGE 42 
Bris “"*"Seego, Seb} acothe TENE ¢ transit AO RECEIVE LoGre 
it :BITI2=PARITY ERROR 
suue anne #$: MOY n Re iD BEL TCA DATA WORD 
Sxxy RGEC! RGSARE roan im ‘LINE a ih “Lou BYTE 
S555 555553 £05355 7) a ae CHE CK 
S556 967204 ieeros o0D908 Sep +4" BRANCH” iF OK ase 
Seer G0r3i0 CO14d! MLT#L SHRONG LINE # RECEIVED 
S552 Sor312 10400! om Rt = CONTENTS, OF ROU 
e252 - P OVE QDILEN. RE :GET MASK OF CHARACTER 
Soil O07314 217702 TITS =$: eye Ro ORY ; CHECK a LENG! 
s5i2 alan = 120251 3E9 $4 RONG F OK ZAENGTH 
ao Ge oe he ee oGr. 
E514 657354 T54008 tapi 2 
S51? oorsee 195102 wet. ha se : CHECK ae a DATA . 
26:8 O973a¢ 120152 re ; BRAN 55 
S33 BeSS5 Teachs Hi T+2 iRlcpean PROR FIFO coerce WORD: 
age ne excl. eResbaTe Pie BYTE) EXPECTED 
sass . AW 1% 1 ec 
E0es O0T33E OI7ToL 171850 = ea :BRANCH TF. CHOR ae A 
s5u Oo7a4e i9ces! ui Fo} : ; CHARACTER ee ae al 
exes OO7S4 iDSEC! — :R1 = CONTENTS OF 
SxS : . MoV s«aSCSR, «AL :SAVE THE CSR 
BOs? OOTS4S O177Ol 171836 §$: aoe gicdSos Rk} ;CHECK THE CSR 
Ssse Doras? 682751 iods0s BE 3 a SSH ANT CLEAR OR OTHER CSR ERROR 
2523 fO736— 501401 HLT+. DEN ION’ 1 CLEAR OF ee 
2039 6507360 10400! » Ri = CONTENTS OF ¢ 
Se3y SLR TCR LEAR Ice 
E532 OO732 DOSOT? 171826 SoR acsR :CLEAR CSR 
eck Mslerge 4 oeso77 171618 Extpp | Ot 
B34 B67s7e «6158409 ihe * 
i 2 gage oe Eg gE oo a etait 
- TEST 4: RECEIVE A CHARACTER, (377) 
Ex=2 : tg: CHECKS THAT MOONE SETS _IN REASONABLE 7 IME. 
ees ° 1s: CHECKS ' Ss N Fly FO 
2039 : ge: CHECKS THAT CHAR PRESENT Jo iN 
240 : 3$: CHECKS THAT NO ERRORS IN (>) IN FIVFO 
| 254i 4S: CHECKS THAT RIGHT RaRaCTER hs 
edz . S$: CHE FOR RIGHT CH : = RECEIVED 
exi3 38; EHECKE THAT CHARACTER PRESENT. CLEANS 
| es ; 28: SHECKS THA N7OBS {De->) ALL; M7279 ALL; UART CARD 03 SERIES 
i att : i 1. a +2 
! 5547 eeanatdeaerhamtnakstancanskertionseettionsadertiiatonmtaniabeiete 
. oie 
| EOeS INITIALIZE 
) coat ; EC Ss, 
}- ev5: e . 7 . T2 = MAINTENANCE 
8 Peg, teri: JSR PC, NINITD 38112 = MAINTENAN 
| fg ren Dee cise BIT = MASTER NTR SCAN EN 
| BS sHATT FOR MOS TO "CLEAR SET: 
! ="t? . 
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OJ11 LOGIC TESTS MACYL1 275732) 21-SEP-76 13:43 PAGE 42 
TEST ALL OF CINE 7 TRANSMIT AND RECEIVE LOocic 
: :BITO = RECEIVER ENABLE 
ponsae y7igos 1s g8IT7, 3TCR  ;SET_XMTR CONTR T. LINE 7 
TPiSté LOP4: eh asf, Fl GRIT FoR SMR REAEY 
- ew - 
noos?? itis? OY as77, aSTBUF ;SENG A RUSOUT 
7.8 RO :CLEAR COUNTER 
if a, 4 RS :SHORT WAIT LOOP 
SNE 15 
I71ss4 TST acsr sWAIT FOR DONE 
BM? 23 RANCH WHEN DONE 
INC R :TIME C COUNTER 
3NE 1§ BRANCH IF NOT TIME-CUT 
LT 1882 MOY acsk, 8 at 


HLT+} ; DONE NEW ep SAME UP 
:R1 = CONTENTS OF CSR 


003 302 2: SIs RD TIMER ;SAVE TIMER 
iPisse MOY aSSuF, FL READ THE FI, FO 
S™: +4 BRANCH IF CHARACTER SEao, 
HLTe! * SHARHC TER READY DION’? SET 
7R1 = CONTENTS OF S8UF 
670098 3$: SIT e7Ccce, R} : CHECK FOR ERROR BITS 
SES +4 sBRANCH IF NONE a 
HuUTe) sERROR IN RECEIVED CHAR 
381 = CONTENTS OF R3LF 
:SITLYSUART OVERRU 
:BITLIO=FRAMING ERSOR 
:SITLZ=PARITY FERRO 
=: MOY Rl, ae ;DUPLICATE DSTR WORD 
170377 Sr: giPoarr Re :MaSK LINES 
Swas R= sLINE @ IN LOW BYTE 
098057 cMPS es R= :CHECK LINE 
BES +4 sBRANCH IF 
ALT +) :ARONG LINE @ RECEIVED 
Rl = CONTENTS OF S3u 
sBITSS-11 = Lt 
L7L1SEé S$: MOVE SCILEN, RE GET MASK OF CHARACTER 
SITS e. Rj sCRECK CHAR LENGTH. 
BE3 oe sGRANCH IF 0 
HLT+2 :WRONG CHARACTER LENGTH 
*RISDATA FROM FIFO 


TE eReE 81'S. se NOT EXPECTED’ 


His :WRONG CHAR LEN OR DATA ERROR 
‘RT SORTE FROM FI/EO .° MPLETE 
:RE=DATR 3 As did BYTE) EXPECTED 


HIF CHAR PRESENT ‘CT SET 
TER PSESENT STaveD “ie? 


;BRA 
Hi T+!) nan Sc 
:R1 g eerents ¢ OF RELF 


371926 23 Mov 6 CSR, RL 
122405 cM #159905,R1 PUECK THE PSR 

BES +4 BRANCH IF oe . 

HT +1 CONE DIDN'T CLEAR OR OTHER 


- ee 
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Eo-11-D207S-2 S241 2OS2¢_ TESTS ACY!1 27732) 21-SEP-76 13:42 PAGE 44 
31 TS74i: TEST ALL CF LINE 7 rRaNsM Tt AND RECEIVE LOocIC 
oo Aa og aE 7 Rl = CONTENTS OF CSR 
eisbe <== as 2.2755 ciR 3TcR CL LEAR T 
DOrSSE SOSCT? iT s4i6 cuR acs se 58 
oers7=  ic4420 SCOPE 
Mersed «DOSES, «6021306 INC OJLEN 
coves «Cierar BONES sistro MOV 8.46, LAD 
 SSFTSSSSARALEFSRALRESRAAL- LERLRAEAAKAAELALALASAAFA FSF AAHALS SF SSASAF FH S+4G4 
TEST 42: TEST THAT LINE 8 can TRANSH2T AND 
; RECEIVE A ner orre 
: 1 SHESK THAT D eaers, ih IN ‘Repeone TIME. 
: 33: STEERS That CHAR 
: 3$: CHECKS THAT NO ERRORS tN FI/FO 
: 43: SHECKS TH THAT RIGHT LINE # (8) IN FI/FO 
: S$: CHECKS FOR RIGHT CHARACTER LENGTH 
: 53: CHECKS THAT CORRECT DATA WAS RECEIVED 
: 7$: CHECKS THAT CHARACTER PRESENT CLEARS 
2 9$: CHECKS THAT DONE CLEARS 
;PROBASLE FAULTY LOGIC: 7285 (D2-7) ALL; M7279 ALL; UART CARD COZ SERIES 
 RREERESRALSERESS ERS RELERELEERELERELEREA SELES EAEESSESESSLESSAESESEDSESES 
_INITIALIZE 
: DEVICE" CSR” REGISTER SET 
DOTEDE «DOSTET LESS *sT42: JS& PC, DHINITD ;81T2 = MAINTENANCE 
:BIT3 = CLEAR MOS 
:;8173 = MASTER XMTR SCAN ENS 
THA aIT FOR md vo S To CLERR cot 
; ;BITO = RECEIVER ENABLE 
Q076:2 OSE777 SOO40 171374 BIS s8IT8, 27CR ;SET_XMTR CONTROL BIT, LINE © 
Sovs25 517701 171364 LOPY2: MOV aeSR i ;WAIT FOR XMTR READY 
S724 100375 SFL = LOPY2 
co7sse Ole??? 00377 «171382 MOV 8377, @T78UF  ;SEND A RUSOUT 
057634 005000 cLR RC CLEAR COUNTER 
507536 105305 1s DEcB RS :SHORT WAIT LOOP 
So7649 90137 . BNE 1§ 
Os7e42 105777 171342 TST acsR WAIT FOR DONE 
So764S 190405 MI 2$ ‘BRANCH HHEN SONE 
S76so 205200 INC RO TIME COUNTER 
corés2 091371 SNE. 1§ :BRANCH IF NOT TIME-OUT 
Oo76&4 91770! 171230 MOV acsk, RL SAVE CSR 
OC7s—ES §=104001 HLT+! SCONE NEVER CAME UP 
:R1 = CONTENTS OF CSR 
o76s2 050037 091202 23: BIS RO TIMER ; SAY TIMER 
SO7EEE 017791 171323 MOY aRSuF, Ri :READ T 
Oo7e7e 190401 BMI +4 BRANCH IF P EABRACTER READY 
007§74 104c0! HLT+1 ; CHARACTER READY DION’ 
1 = CONTENTS OF RELF 
OO7E76 932701 970000 38: SIT #79000, Ri : CHECK FOR ERROR BITS 
Co770s S140! BEG +4 BRANCH IF NONE 
Os77c4 10400! HLT+1 + ERR OR IN N RECEIVED CHAR 
SOIT I4SUART OVERRUN 
;BITIZ=FRAMING ERROR 


ae ee en Oe ee ee 






























“at sees ii , OLD A =e ~ epdg ePSlg Teele We Y}1 27% ca) 21-SEP-76 i3:43 PAGE 4S 
D2B7AB- Fi! fStaz: YES? SLC*Se Live 9 TRANSMIT AND RECEIVE LOctc 
3 gee nue “om Y Se oak ak 
Bis) air? pats 170377 Bie = aitoar7,ke = TRASK LIN 
2173 67719 Ocd302 SWAB :LINE # IN LOW BYT 
gif3 QOrr1g Aeerde ccooL0 CMP #8., = R CHECK LINE 
ei75 U0?7e IDI4O) BEG . 4 ;BRANCH IF OK 
e:-& OO7724 104001 MLT+1 ;WRONG LINE # RECEIVED 
elr? ERs CONTENTS, OF RBUF 
2:78 : ;B1TS8-11 = LINE # 
2:79 D0772& li77o2 171384 S$: MOVE ZOJLEN, Re :GET ‘ge a CHARACTER 
e180 207732 130201 BIT Re, Rl :CHECK CHAR LENGTH 
6:8) 97734 301401 BEG +4 : BRANCH tf 0 
2iSs OC7736 lg4#002 HWLT+2 :;WRONG CHARACTER LENGTH 
2183 R1=DATA FROM FIVEC 
2ig4 ; R2=MASK (8175 SET NOT 2° PECTED 
ei8S C7740 105152 é$ COMS R= ;REVERSE THE MASK 
ei86 OOr74e 1e0ile CMPB Ri, r ;CHECK THE ACTURAL DATS 
eis? OO7744 00140) SEQ +4 ;BRANCH IF OK 
2i88 Oo7746 104002 HLT+2 ;WRONG CHAR LEN OR DATA EROS 
2189 :R1=DATA FROM FIVEG (COMPLETE ucem 
2199 :R2=DATA a BYTE) EXPECTED 
e131 O8r7sG 017701 i71236. 7$: MOV ORBUF, Ri : READ FI/FO 
ei9e 007754 10000) 5PL +4 :BRANCH IF CHAR PRESENT oe m 
ei93 007756 i1C4OC) , H_T+1 :CHARACTER PRESENT STAYED S$ 
i 2194 :Rl = CONTENTS OF RSUF 
| 2195 SO77EO 017701 171224 &$: MOV acsk, Ril :SAVE THE CSR 
| ei3 D7rb4 Gee70] 1OO40S ; CMP #1004905 .R1 ;CHECK THE CSR 
ei3? Ou7770 001401 BESO +4 ;SRANCH IF OK 
| B19— S5o7772 idso0: HLT+1 :DONE DIDN'T CLEAR OR OTHER CSR EBACE 
2139 a :R1_= CONTENTS OF CSR 
2e00 OO7774 O05077 71214 CLR aTCR : CLEAR TCR 
geJi 0:5000 O0S077 17204 CLR acsrR ;CLEAR CSR 
| pete O30008 O40 SCOPE 
| geJ3 
| ect 2 gre aogier oe yy ete nt ol ae neat petite et: 
| zecs TEST 42: TEST THAT LINE 9_CAN TRANSMIT AND 
| S206 4 RECEIVE A CHARACTER, (a7? : 
| €&ur ; 13: CHECKS THAT DONE SETS IN REASONABLE 7 TIME. 
| Beg , 2$: CHECKS THAT CHAR PRESENT IS IN FI/F 
| 2209 ; 3$: CHECKS THAT NO ERRORS IN F AF 
1 geil ; 4$: CHECKS THAT RI LINE # (9) _ IN FI-FO 
| eas ; S$: CHECKS FOR RIGHT CHARACTER LENGTH 
«EBLE G3: CHECKS THAT CORRECT DATA WAS RECEIVED 
| EBLE ; 78: CHECKS THAT CHARACTER PRESENT CLEARS 
| EELS 8S: CHECKS THAT DONE CLEARS 
| gels ;PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; USRT CARD DOS SERIES 
| gels EERE ERAS ARERR ERE ERRAREEAL EE REREA REREAD REREAD SAREE ARES AER DER EREE RAED ED 
| gear 
| Ee:g ; INITIALIZE 
| £223 DEVISE"CSR "REGISTER ets 
| EEL OL000E 204727 Cissee $5743: JSR PC, ISINITO ; sBITe z MAINTENANCE 
| gees :BIT8 = MASTER XMTR SCAN ENS 
| e569 sHAIT FOR MOS TO CLEAR al 
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21-SEP-76 i3:43 PAGE 46 
set ALL OF LINE 9 TRANSMIT AND RECEIVE LOGIC 


;BITO = RECEIVER ENABLE 


;SET_XMTR CONTROL BIT, LINE 9 
sWAIT FOR XMTR READY 


;SEND_A RUBOUT 
:CLEAR COUNTER 
;SHORT WAIT LOOP 


;WAIT FOR DONE 

:BRANCH WHEN DONE 

TIME COUNTER 

BRANCH IF NOT TIME-CUT 


BONE NEVER CANE UP 
'RL = CONTENTS OF CSR 
SAVE TIMER 


NCH rE 
CHARACTER REG DY DIDN'T at 
TS OF 


ACH TF Ok 

:RONG LINE # RECEIVED 

;R1_= CONTENTS OF REUF 
ITS8-11 = LINE 8 

GE MASK OF CHR TER 

3 CHECK CHAR LENGT 


F_OK 

eoek LENGTH 
REVER THE MASK 
s CHES K mi RL DATA 
STRONG CHAR Len OR DATA ERROR 
;RI=DATA FROM FIVFO (COMPLETE WORD) 
eReSDATR {OW BYTE) EXPECTED 
BRANCH IF CHAR PRESENT NCT SET 


CHARACTER en aie YED SET 
e hee OF REUF 


H HIF Ok 
: DONE CIDN’T CLEAR OR OTHER CSR ERROR 
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OJi1 LOGIC TESTS MACYL1! 27(732)_ 21-SEP-76 13:43 PAGE 47 
TEST ALL OF LINE 9 TRANSMIT AND RECEIVE LOGIC 
R ;R1_= = CONTENTS OF CSR 
171014 CLR JTCR TCR 
171604 CLR ICSR ‘ECEAR CSR 
SCOPE 
£ SARALAAARALAE LAT EREK RAL AA RAKES KEL RAAE LHL ARASH KFS FFA RSs AAAFLFEAFLF LS 
TEST 44: TEST THAT LINE 10 CAN TRANSMIT AND 
; RECEIVE A CHARACTER. (377 
18: CHECKS THAT DONE SETS IN REASONABLE TINE. 
; e$: CHECKS THAT CHAR PRESENT IS IN F1/FO 
3$: CHECKS THAT NO ERRORS IN FI/FO 
: 4$: CHECKS THAT RIGHT LINE & (10) IN FI/FO 
S$: CHECKS FOR RIGHT CHARACTER LENGTH 
63: CHECKS THAT CORRECT DATA WAS RECEIVED 
: e:  GHECK® THAT CHARACTER PRESENT CLEARS 
9$: CHECKS THAT DONE CLEARS 
‘PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD OC3 SERIES 
= ERE ERLE ARR AR EE RHE KEE EER EK AE EERE EREKE ES AEA EA EE AAA EERE S FALE AS REESE SEES 
: INITIALIZE 
; DEVICE"CER*RE SISTER poe 
C1556 fsT44: JSR é DINITO ;8172 = MAINTENOQNCE 
BITS = CLEAR MOS 
;BITS = MASTER XMTR SCAN ENS 
;WAIT FOR MOS TO CLEAR ot 
: ae! 3 
: ;S81TO = RECEIVER ENASLE 
oo2099 170774 BIS WBIT1O, TCR © ;SET_XMTR CONTROL BIT, LINE 10 
178764 LOPS4: MOV acsr, ° Ri WAIT FOR XMTR READY 
BPL LOP44 
ooc377 170762 Mov 8377, aQTBUF  ;SEND A RUSOLUT 
CLR RO :CLEAR COUNTER 
1$: DECE RS ;SHORT WAIT LOOP 
170742 TST acsR ;WAIT FOR DONE 
BM? 2g :BRANCH WHEN DONE 
INC RO TIME COUNTE 
BNE 1§ ; BRANCH IF NOT TIME-OUT 
170730 MOV dcSR, Ri SAVE CSR 
HLT+! {DONE NEVER CAME _U 
:R1 = CONTENTS SF eS 
991302 2: BIS RO TIMER ;S TIMER 
170720 Mov JRBUF, RI READ THE FI/FO 
BMT +4 ;BRANCH_ IF CHARACTER READY 
HLT+1 ;CHARACTER READY DIDN’T SET 
:R1_= CONTENTS OF RBU 
o7c090 38: BIT #70000, Ri CHECK FOR ERROR SITS 
PEG +4 BRANCH IF NONE 
HLT+1 ERROR IN RECEIVED CHAR 
:R1_= CONTENTS OF RBUF 
:BITI4=UART OVER N 
. :BITIS=FRAMING ERRCR 
:BITL2=PARITY 
48: MOY Ri, R2 ;DUPLICATE DATA WORD 
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ie] oe] ae] a) 
=) 0b 


onnaogd 


GIGIGIO?) 
tJ 
fu 


m0o0noo 


Q H 
HLT+2 WRONG CHAR LEN OR DATA ERROR 


Siete 


uUrururormro 
JOIGIOIWIGIGIGIG 
OOrmmrmuy ( 
tWwhe-Owom~ 
goooo ooo 
ee ae ee ee ee 
Mogan mono 
WIIG) GG) 
uw 
> [oe ] 
Owdono ooo 
pend ae aod Soa are re ors 


goornr 


i 


oon 
1-00 -OND &-o 
on] | oe] 

A. 

~ 


re EE ae een AO 
4 


“I~I9~9>9- ISIN OG 


(Poul Gone-Ow 


i 


8$: CHECKS TH 
PROBABLE FAULTY LOGIC: M7e8S (De-7) ALL; M7279 ALL; UART CARD Dlz SERIES 
SRRREESRARREATAAEDAD ESHER ES EE REX EARS REET REESE ERED | RR RAREARARARR EARLS 


INITIA 
DEVICE"CSR"REGISTER 


WAIT FOR MOS TO CLEAR 


(13 OOM CoMme--O wos 
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#170377 ,Re ot 
Re 


sLIN Fine LOW BYTE 
#19., Re i CHE K 
4 BRANCH IF ok 
l sWRONG LINE # RECEIVED 
:Rl = 'y TENTS OF RGUF 


;BITS8-11 = LINE # 
ODILEN, Re GET MASK OF CHARACTER 
a ;CHECK CHAR LENGTH 
E +4 :BRANCH IF OK 
HLT+2 s RONG CHARACTER LENGTH 
;R2=MASK (BITS SET NOT EXPECTED) 


REVERSE T 
Re : CHECK THE ACTURAL DATA 


















:RI=DATA FROM FIFO (COMPLETE WORD) 
;R2=DATA (LOW BYTE) EXPECTED 

JRBUF, RI s READ FI/FO 

+4 ;BRANCH IF CHAR PRESENT NOT SET 
;CHARACTER PRESENT alpen SET 
:R1 = CONTENTS OF RBUF 














aCSR, Ri ;SAVE THE CSR 
#i00405,81 ;CHECK THE CSR 
+4 : BRANCH 


HIF OK 
:DONE DION’T CLEAR oe OTHER CSR ERROR 
eR1 = con ees OF C 


C&R tetEAR CSR 


T_THAT LINE 11 CAN TRANSMIT 
RECEIVE A CHARACTER. 
CHECKS THAT DONE SETS in "REASONABLE TIME. 
CHECKS THAT CHAR PRESENT hy IN FI/FO 
C NO RS_IN FI/FO 


CHECKS THAT RIGHT LINE # (11) IN FI/FO 
CKS FOR ! TER LENGTH 
CHECKS THAT CORRECT DATA WA E RECEIVED 


CHECKS THAT CHARACTER PRESENT CLEARS 
AT DONE CLEARS 


LIZE 


SET: 
PC, QsINITD ;8IT2 = MAINTENANCE 
sBIT3 = CLEAR MOS 
;BITS = MASTER XMTR SCAN ENS 
SET: 
;SITO = RECEIVER ENABLE 
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MACY! 27(732) 
11 TRANSMIT AND RECEIVE 
BiS #BITI1, TCR 
Lopys: MOV  3CSR, ” RI 
BPL LOPYS 


13: DECS =a 
SNE 1g 
TSTB =: CSR 
BMI 23 
INC RO 
BNE 1$ 
MOV acSR, = R} 
HLT +i 

2g: BIS RO 
MOV TRSUF, R! 
BMI +4 
HL T+! 

2$ BIT #70060, Ri 
969 4 
HLT+1 

4$: MOY Ri, 2 

tC #170377 Re 

SuAg 2s 
CMPE o#ll., = R 
BE +4 
HLT+! 

s$ MOVB @SILEN, Re 
BITE : 
BED +4 
HLT+2 

S$: COMB =—séR 
CMPB sé, Re 
EQ +4 
HLT +2 

73 MOV ORSUF, Rl 
BPL +4 
HLT +1 

gg: MOV acsR, Ri 
CMP #100405,Ri 
BEQ +4 
HLT+1 


‘CLEAR TCR 


21-SEP-76 i3:43 PAGE 49 
LOGIC 


;SET_XMTR CONTROL 
;WAIT FOR XMTR REA 


;SEND A RUBOUT ‘ 
;CLEAR COUNTER 


BIT, LINE 11 
OY 


SHORT WAIT LOOP 


;WAIT FOR DONE 

: BRANCH wen. DONE 
TIME COUN 

; BRANCH IF TOT TIME-OUT 


;SAVE CSR 
: DONE NEVER CAME UP 
Rl = von TENTS OF CSR 


Cay AVE 


TIMER 

:READ THE FI/F 
:BRANCH IF CHARACTER 7h 
; CHARACTER Rear d DION’T SET 

¢1_ = CONTENTS OF RBUF 
‘CHECK FOR fae BITS 
;BRANCH IF 
ERROR IN RECEIVED CHAR 


:R1_= CONTENTS 0 Fad 


SBITID=PARITY ERROR 


;DUPLICATE DATA WCRD 
:M LINE® 
CINE 4 IN LOW BYTE 


LIN 
; BRAN CH IF OK 
:WRONG LINE # RECEIVED 
RL ea CONTEN af OF Daal 


GET MASK OF CHAGACTER 

s CHECK CHAR LENGTH 

:SRANCH IF OK 

WRONG CHARACTER LENGTH 

:R1=DATA FROM FI/FO 

:Ro=M ASK {FATS SET NOT EXPECTED; 
;REVERSE THE MASK 

: CHECK THE ACTURAL DATA 

BRANCH IF OK 

:WRONG CHAR LEN OR DATA ERROR 

;RI=DATA FROM FI/FO (COMPLETE WORD? 

;R2=DATA (LOW BYTE) EXPECTED 

READ FI/FO 


;BRANCH_IF CHAR PRESENT NOT SET 
:CHARACTER PRESENT STAYED SET 


:R1 = CONTENTS OF RBUF 
CSR 


F OK 
‘BONE “BION” T er. on OTHER CSR ERROR 
1_ = CONTENTS 
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Yili e2 i3:43 PAGE S50 
11 TRANSIT AND 





GRR TIE IIIA RRR ERED IT IDL ASIA AAA AIA AF 
EST 4 TEST THAT LINE 12 CAN eget? AND 
RECEIVE A CHARACTER. (377 
CHECKS THAT DONE SETS IN REASONOGLE. TIME. 
CHECKS THAT CHAR PRESENT IS IN FI/F 
CHECKS THAT NO ERRORS IN FI/FO : 
CHECKS THAT that c i (12) Le FIVFO 


CKS FOR _R ER LENGTH 
CHECKS THAT CBRRECT DATA WAS RECEIVED 
CHECKS THAT CHARACTER PRESENT CLEARS 
CHECKS THAT DONE CLEARS 
M7285 (De-7) ALL; M7279 ALL; UART CARD D 
 ANEAaaEAEDAEEREEESAESEESITEESSSEHERETELOD ES SEEESE LEER SEESETEERSEAS EES 


: 93: 
:PROSABLE FAULTY LOGIC: 


INITIA 
DEVICE"CSR” REGISTER 


LEAR MOS 
MASTER XMTR SCAN ENS 


RECEIVER ENABLE 


sSET XMTR CONTROL BIT, LIN 
;WAIT FOR XMTR READY 


;SEND A RUBOUT 
CLEAR COUNTER 
;SHORT WAIT LOOP 


sWAI { E 
sBRONCH WHEN DONE 
:BRANCH IF NOT TIME-OUT 
:SAVE CSR 
:DONE NEVER CAME_UP 
;RA = CONTENTS OF CSR 
; SAVE + te 
:READ THE FI/FO 
; BRANCH IF CHARACTER READY 
; CHARACTER READY DIDN'T SET 
:Rl = CONTENTS OF RSUF 
; CHECK uf fF at BITS 
ERR OR IN RECEIVED a 
= CONTENTS OF RELF 
BITI4ZUART OVERRUN 
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| gee Diiv?se serves OCC isvesl 38: BIT sBIT4,IcSR WAIT FoR “CLAMCS TO FINiss 
| g8eS Cli74o SOlsrs SNE 33 
| ga WO & 
| gee’ oli?ss elr7ol § j&7e44 MOV JRBLF AL :CHECK SBUF AND SAVE 
ef8e8 CilT4e IoCce) B°_ +4 
e223 Sil7sS LOMcc) HLT+! 
E522 SiiTSE eifhet jETEZE MUYV 20S ,§1 ;SAVE CSR 
ee2), Dli7em Oeevo, jlosue OMe sl OC4o5,8! :CMECK CS 
eSse cilvee CLi4c) SE5 7 :SRANCH IE OK 
goss Sil'ee iO4OC] HLT +} 3055 RRRER Possigi.:Tes 
+ gE le (1) DION’ T CLEAR 
' gest 
| geze (2) TRANSMITTER ART OION’T CLA. 
£2:7 SRISCONTENTS OF CSR 
ges9 £12755 he ge esos ee | MOV TIMES, RC sgET a TIMES 
Set, eek futund +8: CES S SHORT WAIT LOOP 
28%. 11778 Lois s ENE ab} 
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MOV 3258.81 SAVE CSR 
TTS g! ;cHECK FOR DONE 
SFL 4 sSRANCH IF Ck 
HLTe! s DONE anne, UP! 
sMCS MUST NOT HAVE CLEGRED 
DEC 0 : TIMER COUNT 
SNE 4$ 
CMP #100425 ..Ri ;CHESK CSR 
BES +4 sSRGNCw IF Ok 


HUT+) :CSR ERROR 


MOV aRBUF Ai 7 CHECK REF 
SPL +4 ; SRANCH oK 


HLT+] :RSUF NOP EMPTY! 
ik 3JTCR 

CLR acsr 

SCOPE 


4 RRRREE FEEEEF> TEST THAT TRANSMITTER READY CLEARS GEN THOP 1¢ coanen 


TEST 52: T THAT TRAN MITTER REACY CLEARS WHEN THUE IS LOacec 
; NOTE: oF ‘TO THE DOUBLE SUFFERING SY THE LART, ‘no GhamactEss 
MUST 8E LOADED TO TNS. RE SEEN TRANS™I°TER RERDY CLEAS 


:PROSABLE FAULTY LOGIC: MT28S .D2-6° £33, £23, 49 
+ REERELEAEEER AES EREESERALSARESEES BSAA EES EARE RAPES REESSESSS4S45545404854 


4 INITIALIZE 
: DEVICE*CER*RE SISTER Be 
tsTS3: JSR Po, DaINITD ;3IT2 = MAINTENANCE 
sBit2d = CLEAR MOS 
-Si7s 2 MASTER XMTR STAN ENS 
sWAIT FOR MOS TO CLEA oat 
; SSIT2 = SECEIVES ENSSLE 
QIs @BIT2, STCR  ;TRANS CONTROL, LINE 2 
13 Moy acSsRk, A *WAIT FOR XMTR REACT 
QPL 1g 
MOY ei, STSUF 46: TRANSMIT A i 
2g MOY 3C5R, ! [WAIT FOR XMTR READ 
SPL 2 
Moy a2, STBUF  ;TRANSMIT A 2 
MOY acsk, RL -CHECK FOR XMTR READ) 
BPL +4 :SRANCH IF XMTR RESZY SLEARED 
HL T+! : TRANSMITTER READY FaILes TO CLEAR 
'R1 = CONTENTS OF CSR 
. MOY TIMER, 2 ;SET_ UP TIM iHER 
38: ecSSsdR'E SHORT WRIT LOOP 
NE 3$ 
Moy 3CSR, oR SAVE SP FOR THE RECCRE 
ge +2 =NOP FOR TIMING 
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;TIMER COUNT 
:BRANCH IF MORE TIME 


: CHECK Fo 
; BRANCH 


IF 
i OONE BION’ T SET. OR OTHER CSR. ERRCR 
:R TS OF CSR 


1 = CONTEN 
: CHECK RBUF FOR tae eESENT 
:BRANCH IF CHAR PRESENT 
: CHAR PRESENT MISSING 
Ri PY hit By RBUF 


ORE CHARACTERS 


R ERROR 
Rl = Bo 4 REUF 
:CHECK FOR NO M 
;BRANCH IF CHAR PRESENT CLEARED 


:CHAR PRESENT NOT an 


3R1 = CONTENTS OF RSUF 
:SAVE CSR 


CHECK CSR 
om OK 


TO eee eer THAT RECEIVER ENAGCE ON AD TMEtTe tenet 
54: T RECEIVER ENASLE ON AC INHISITS CONE 
AND ¢ “CHRECTER PRESENT 


(D2-7) £32, £15 


:81Te = MAINT yo 


:BIT3 
:BIT MASTER "TEAN SAN ENS 
; WAIT FOR MOS TO CLEAR 


;SET XMTR CONTROL SIT, LINES 
: WAIT FOR XMTR READY 


sen D AN THER 
:SET UP TIME 
; SHORT WALT COP 


:SAVE CSR FOR TYPING 
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TsTS Rl ;CHECK FOR DONE 
BPA, 3$ » BRANCH iF NOT SET 
HLT+1 ;DONE SET WHEN RCV ENS CLR 
sRI=CONTENTS OF CSR 
BR 4¢ 
33: DEC RO ; TIMER COUNT 
SNE 2g : BRANCH IF MORE TIMER 
43: MOV JRBUF, Rl 5 REC ae SAVE FI/FO 
BPL +4 : BRA H IF OK 
HLT+1 CHARACTER PRESENT IN FI/FO 
:RI=DATA F OM FI/FO 
INC aCSR 37 RECEIVER ENABLE 
Sf: MOV acSR, Rl 
TST8 Rl CHECK FOR DONE 
BMI 53 : BRA NCH IF OK 
DECS RO : SHORT TIMER 
BNE S$ 
HLT+1 ;DONE DION’T COME UP wan RECEIVER ENSSLED 
:UART SHOULD HAVE HELD A CHARSCTER 
:R1 = CONTENTS OF CSR 
és MOV aRBUF, Rl : CHECK FOR CHARACTER PRESENT 
BMI +4 »xHiNCH IF OK 
HLT+1 : CHARACTER te id St aa 
sRl = CONTENTS OF RBUF 
CL aTCR CLR TRANS CONTROL REG 
SCOPE 


j RERREREREAHRREREAE EERE REAR EAPLALERRER EER EEAELER TERRE RESELLER TARE RED EED 
TEST TEST THAT HALF DUPLEX (BIT1) DISABLES THE RECET VER UARTS. 

: PROSABLE FAULTY LOGIC: M7e8S (De-4) E32, E17, Eee, (De-2) ES, £1 

s SSFESSSESAESESESSSESERSSSSSTERSEESAEDTSGHESSOEDSIEESIOTEGOTEITEEEOEEE 


JeINITC 5 INET TAL Tee 
SBIT1 = HALF DUPLEX 
:81Te MAINTENANCE 


;BITS MOS 
sBIT § = MASTER TRAN SCAN ENS 
HOS TO CLEBR. 
Moy #BIT0, TCR ESET -XNTR CONTROL giT, LINE 
R! ;WAIT FOR XMTR READY 
MOV i STBUF SEND AN a" 


MOY TIMER, RO :SET UP TIMER 
‘ ororT me LOOP 


BNE A 
MOV. 3CSR, RL ;SAVE CSR 
S72. Ri :CHECK FOR DONE 
BPL oS :BRANCH IF NOT SET : 
HLT+1 : DONE SET WHEN HALF DUPLEX (BIT1L) SET 
:RISCONTENTS OF CSR 
BR 4S 
2s DEC ~=—s«aRO sTIMER COUNT 
BNE ;BRANCH IF MORE TIMER 
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S55¢ BrSeue 943737 

3037 S156s4 952737 

3039 Si3ece 504737 
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3544 

3045 912566 012777 

3546 B:s574 01701 

3547 Oize00 100375 

3548 Olze02 012777 
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S050 6ise:4 100375 
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4$: MOV JRSUF, Ri ;CHECK AND SAVE FI/FS 
BPL +4 ; BRANCH Na OK 
HLT +1 : CHARACTER PRESENT IN FI/FC 
SRIZDATA FROM FI/FO 
a4 SBIT1, aCSR CLEAR HALF DUPLEX BIT 
NOP 
NOP 
NOP 
S$: MOV dRBUF, Rl ;CHECK FOR CHAR PRESENT 
BPL +4 BRANCH IF ce NOT PRESENT 
HLT+1 :CHAR PRESENT A FTER H/D CLEARED 
:R1 = CONTENTS OF RBUF 
CLR aTCR ;CLR TRANS CONTROL REG 
SCOPE 


ESE E UHHH HHH HSER UHH ISO EEUU UE EGE Eee 

; SE: TEST THAT RECEIVER INTERRUPT DOES NOT woe AT LEVEL § 
PROBASLE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHIP 

Perr irrreeerrse erste ree ee tet ter eeeeet CPETeT PEP Prt er tT eter eee er eee Tee eee 


TSTS&: MOV _ ARCVVEC ;SET UP wa INTERRUPT VECTOR 
MOV 340, © SRCVLYL :AT LEVEL 
BIC $349) aePS CLEAR FS (even 


BIS ue40, gaps :SET PS TO LEVEL S 
JSR PL, QINITS ;SET: ‘ 
:BIT2 = MAINTENANCE 
:BIT3 = CLEAR MOS 
:BITS = RECEIVER INTERUPT ENABLE 
:BIT8 = MASTER TRANS SCAN ENASLE 
:WAIT FOR MOS 10 CLEAR 
-BITO = RECEIVER ENABLE 
MOV SBITC, JTCR  ;SET TRAN CONTROL BIT, LINE © 
1$: MOV acsrR, Rl ;WAIT 
BPL 1$ 
Mov #25 STBUF  ;SEND #25 
23: STB CSR WAIT FOR DONE 
BPL 2$ 
BR ENDS6 :0K, BRANCH IF NO INTERRUPT 
ISRSE: HLT sSHOULDN’T HAVE INTERRUPTED AT LEVEL 5 
Noy #ENDS6, <SP) :MOVE NEW RTI ADR ONTO STACK 
ENDS6: MOV JRBUF, 1 ;READ THE CHARACTER 
BMI +4 :BRANCH IF CHAR PRESENT 
HLT+1 3 CHAR R PRESENT MISSING 
NTS OF RSUF 
CMP #100025 ,R1 CHECK HE pata 
BEQ +4 ‘BRANCH IF OK 
HLT +} RECEIVED DATA ERROR 


= CONTENTS OF REUF 
MOV RCVLVL, SRCVVEC 
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MOV #I0T, JRCVLYL 
SLR TCR 
CLR CSR 
BIC #340, 28PS 
SCOPE 
ee en er eres ere eee ae eee ee 
7. TEST THAT RECEIVER INTERRUPT OCCURS: AT LEVEL 4 
:PROBABLE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHIP 
Perrereretitrerettrrtrettiitrerrtrtrirititrttiittitttitittttitteti resis! 


TSTS7: MOV #ISRS7, IRCVVEC ; ‘AT LEVEL 7" INTERRUPT VECTOR 


MOV #340, a@RCVLVL 38 
prc B40: SHS LEAR PS LEVEL 
BIS #200; aHPS  :SET PS To LEVEL 4 
JSR PC, JSINITS ;SET: 
:BIT2 = MAINTENANCE 
:BIT3 = CLEAR M 
:SIT6 = RECEIVER INTERUPT ENABLE 
:BIT8 = MASTER TRANS SCAN ENABLE 
:WAIT FOR MOS 10 RON EAR 
:;BITO = RECEIVER ENABLE 
MOV #BITO, JTCR SET TRAN CONTROL BIT, LINE O 
1$ MOV acsr, Ri : WAIT 
QPL l 
MOV #25 JTBUF  ;SEND #25 
2: ST gcse :WAIT FOR DONE 
Hi_T ;SHOULD HAVE INTERRUPTED AT LEVEL 
Be ENDS? : CONTINUE 
ISRS?: Moy 8ENDS7, (SP) :MOVE NEW RTI ADR ONTO STACK 
ENDS7: MOV SRBUF, Ri ;READ THE CHARACTER 
BM! +4 :BRANCH IF CHAR PRESENT 
HLT+1 :CHAR PRESENT MISSING 
:R1 = CONTENTS OF RSUF 
CMP #109025 ,R1 i CHECK | THE DATA 
BE +4 :B IF OK 
HLT+1 RECEIVED DATA ERROR 


:R1 = CONTENTS OF RBU 
MOV RCVLVL, IRCVVEC 
MOV #I0T,  @RCVLYL 
aTCR 


acsR 
BIC #340, d8PS 
2a eee ye enceaa reamae etree 


T 60: TEST FIVFO OVERRUN 
THE FIFO SUFFER SHOULD HOLD 64 CHARACTERS. 
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OVERRUN 
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:FROBAELE FAULTY LOGIC: M7285 (01-7) E3z, E17, E22 (De-2) ES, £1 
 pacensndaneshonahesaeeounnaazupnanesgerahoniahenttesttetaesshunaersnen: 


INITIALIZE 
DEVICE"CSR” REGISTER 


: SET: 
tsTe0: JSR PC, @¥INITO ;81T2 = MAINTENANCE 
;B1T3 = CLEAR MOS 
tBITB = MASTER XMTR SCAN ENE 
;WAIT FOR MOS TO CLEAR hed 
;BITO = RECEIVER ENABLE 
MOV #177777 ,aTc sTRANS CONTROL BIT, ALL LINES 
MOY #100, ‘RO -SET UP COUNTER 64. CHAR an FQ BUES 
$: HV acSR, ae !SAVE AND WAIT FOR TRANS REAL 
SWAS =: ATBUF ; TRANSMIT LINE # ON LINE 
BIT #BIT12, RI s CHECK FI FO OVERRUN 
BEQ +4 ;BRANCH IF 
HLT +1 FI/EO OVERBLN TOO SCON 
sRISCONTENTS OF CSR 
DEC RO :COUNT DOWN 
NE 1$ 
MOV TIMER, 89 ;SET_UP TIMER 
23: MOV acsR, Rl :WAIT FOR XMTR REEDY 
BPL i 
Deca SRE ;SHORT WAIT LOOP 
BNE 23g 
MOV acSR, Ri. ;SAVE CSR FOR THE RECORD 
BMI +4 ' :BRANCH IF TRANS REACY 
HLT +1 ;TRANS READY MISTERICUSLY Tiz. .="EZ 
:RI=CONTENTS OF CSR 
DEC RO ;TIME 3 CHARACTER LENGT:S 
BNE 3g ;BRANCH IF MORE TIME 
;FI/FO SHOULD NOW BE FULL 
TSTB) RL CHECK THAT DONE IS SET 
BMI +4 ;SRANCH IF OK 
HLT+1 : DONE “BIEN? T COME UP! 
:R1 = CONTENTS OF CSR 
CMP #100605,R1 :CHECK THAT FI/FO NOT OVERRUN 
BEQ +4 :BRANCH IF OK 
HLT+1 FI/FO OVERRUN 


N SET 
OR SOME OTHER CSR ERROR 
SRI=CONTENTS OF CSR 


j RELERER REE ERE RARER ERE LER ED EER ERE REE ERERERERER EERE RERERRERETEREAR EERE R 


iT ST 690A: Teer THAT FI/FO OVERRUN COMES UP. PEN SSTH CHARACTER 


S RECEIVED WITHOUT READING FI/F 
RARER KARA AAA KEA RARER AERA ERE ARAB RARE RAL SER REREA EASE RR EERE SAAR ER EEERRAR RE 


TIMER, RO : SET TIMER 
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11$: DECB RS :SHORT WAIT LOOP 
an 43 RI SAVE CSR 
YY Tene MEY Rta Pt FO OVERRUN 
BNE 12$ ;BRANCH WHEN SET 
DEC RS 
SNE 11g 'BRANCH IF MORE TIME 
HLT+1 ;FI/FO_ OVERRUN ID T COMEUP 
= CONTENTS OF CSR 
128 cH #120605, R1 CHECK “TOT CSR 
HLT+1 SrHTNG oN CSR FOULED uP 


CEONTENTS OF CSR 
p RERKER EEA RA REAR RAE ALLER EK EKER KHER E EE ERE EEE ELEN EREEEREEE ER ELEP RE EES 


sTEST $08: TEST THAT READING THE RECEIVER BUFFER CAUSES FI/FO 
; NOTE: SECAUSE OF TIMING OF THE FI/FO F1/0 OVERRUN CAN COME 
: BACK UP AFTER READING ONE CHARAC SO 06, SECOND MUST 
; BE READ TO INSURE THAT FI/FO ROE RE IS CLEAR. 
: liinaneneiinaetens Rnakntantel aenelinaemeihcutaleknes tel tet tenniebeenein 
TEOB: MOV #2 RC :SET UP COUNTER - 2 CHARACTERS 
21: MOV aRSuF, RIL : CHECK AND SAVE FIRST CHAR IN FIVEC 

BMI +4 :BRANCH IF CHAR PRESENT 

HLT +1 ‘CHARACTER PRESENT GONE! 

BIT #070000, R1 :CHECK RECEIVER ERRORS 

BEQ +4 :BRANCH IF OK 

HLT +1 "RECEIVER ER 

:RI=CONTENTS OF RBUF 


‘SITID=PARITY ERROR 


MoV RL, sR sPUT LINE # IN R2 
SAB «Re 
BIC #1 777£0,R2 
CMB. ORI, «= R2 ;CHECK DATA (=LINE#) 
BEQ +4 R 
HLT+1 WRONG DATA RECEIVED 
$R1=F1/FO DATA 
; ; (DATA SHOULD=L INES 
228: DEC RO SCOUNT CHARACTERS 
BEG = 24S :BRANCH WHEN DONE a 
238: DEC RS ;SHORT WAIT LOOP - GIVE FIVFO TIME 
BR 218 “ 3G0 READ ANOTHER 


;SAVE CSR 
sCHECK THAT FI/FO OVERRUN CLEARED 


BE : : Cc My 

HLT+1 sFI/FO OVERR N DIDN’ T CLR 
:OR SOM PSFHER C SR PROSLEM 
?RisCONTENTS OF CSR 
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DSBIAG TS7g2: TEST REAQ WRITE BITS OF BCER 
3458 sate 2u770t 14876 "uy rie SE. i : CHECK ANd Save BcsR Ne 
3453 014316 922791 1TT7T7 on asere? ok TS ARE SET 
Mh) mi gass S345} 9 +4 as va TF OF 
345i Bia3e4 Tododt HLT+} BIT es y BCSR FAILED TO ST 
3463 014326 COSOTT 1sHece CLR 28cSR ‘CLEAR BCS 
3465 614352 81770: 6455 5Y 3BcsR, R! SHE CK ecae IT CLEARED AND SAVE 
3465 014236 09240] aEQ 44 ‘BRANCH IF CLR 
BES O14340 L34oC! T+! BIT(S) OF BCSR FAILED TO CLEARS 
ots/ 
358 O14342 «104400 SCOPE 
5474 TEST Cae TEST THAT LINEC CAN TRANSMIT AND RECEIVE A OREAK 
377 TEST 3: SI T LINED CAN i T AND RECEIVE A BREAK 
eh : cHecks fn MING pave SUE Se 13) 
5455 ; alts CHEEKS pant TS ERROR ROUE BItio+ 
3474 IF O00 PARITY 1S SELECTED 
3475 *PROBABLE FAULTY LOGIC: M7285 (D2-2) €S, £1, (D2-3) Eis, E2, £19, £35 
! 237 S LTSSREEREREASEREEELESESERESSSEEASLEREESEESEERESSESEER ED $040404820480244 
477 
| S472 014344 CON737 015536 TESTES: JSR PS, QRINITA : INITIALIZE 
3475 :8172 = MAINTENANCE 
Suec :BITS = CLEAR MOS 
| 3497 :BIT1O= BH BCR 
| 3433 ;WAIT FOR MOS TO CLEAR 
3483 :B170 = RECEIVER ENABLE 
| 3485 O14350 O12777 COO: 1e4e3¢ Moy 8} 2BCSR SEN O BF EAKS, LINE 0 
S485 014356 913700 60130 MOV TIMER, &O :SET UP TIMER 
| 3458 Siqaea [OSa0¢ 13: ceca «StsiéwRE :SHORT WAIT LOOP 
| 3487 014364 001376 SNE 13 
3488 D1436— O1PPO1 Le4blE MoV 3cSR, SAVE CSR 
3485 914372 10570 TST Ri CHECK FOR DO 
| 3499 Si9a74 100404 BMI 25 ZSRANCH WHEN DONE 
| 359: o1437— SoS200 INC RO WAIT A WHILE 
| 34g Siugoo 991370 ENE 18 
| 3495 Bl4sd2 104001 HL T+} ;DONE_NEVER CAME UP 
5S | IRISCONTENTS OF CSR 
Bugs O14404 900430 BR 4g 
| Suse Oluude 822701 ocezos 23: eMp 2205, 1 sCHECK REST OF CSR 
| 3497 Sivsiz 301491 BE0 +4 sBRANCH IF Ok 
| ee Siasis idcdl HLT+} :SSR ERROR 
| 3495 SRISCONTENTS OF CSR 
| 3E0l ogiv4ie ou77o1 1s4570 Moy Q8BUF, RI! :GET DATA FROM FIFO 
S553 Suse TOOuo! MI +4 BRANCH IF 3 
355 Oleds4 9400! HLT+] |  EHARACTER DRESENT NOT UF 
3554 IRISCONTENTS OF RBUF 
soue 
S506 O1442E 032701 020000 BIT #029000,R! sCHECK FOR FRAMING ERROR 
3557 Ois432 O0708i BNE +4 BRANCH IF OK 
S58 14434 10400] HLT+] SFRAMING ERROR NOT UP 
3E°9 RISCONTENTS OF RBUF 
SES o1u43G 122737 001219 ooLe7s BITB DJPAR, PARITY : CHECK oR PARITY FLAS 
SEI] Blwed4 G0 14d4 BEG 33 : BRANCH IF NOT 
375 Slysug S3e70: 910000 BIT 8010005,8! :EMECK PARITY ERROR 
S673 Alauss ArIONE BNE 4§ : 
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3000 PARITY SHOULD CAUSE PARITY ERROF 
:RISCONTENTS OF RBLF 


CHECK PARITY ERROR 


ee N BART OR_NO PARITY 
: SHO CAUSE PARITY ERROR 
SRISCONTENTS OF RBUF 
: HECK we RT SOVERRUN 
: BERNE 
uART OVERRUN SET!! 
izcoNt ENTS 10 SRSUF 


aa te ok 
WRONG LINE® IN FI-ES 
:RLECONTENT ¢ oF RoUF- 


sBSANCH IF OK 

$ ARON NG DATA RESET ED 
 RTSCONTENTS OF REUF 

Bad RA ae at 


sCLERR SRERK CONT ROL 


~} 
- i te 
:SHOBT WAIT LOSCP-REGISTER = “oR. 
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ae aa eee ome maeen': Seek aes Seneeeieee aac ae SHSTHS HF LESERES? 


TRANSMIT AND RECEIVE & BRES+ 


TNE “GN 
ei Fens R.RSUF 31713) 
PARITY ERROR. BBUF BITLZ) 
'Ty 7S SELE“TEL 
AG: sen tu. a. 0 oo 


$eeeee PEOPSEASHESSDESERSEDSSEDEASESDESDELERESS +3 Seeeeassaeeeaese f2ttee 


sie : AR INTENANCE 
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cE q\ , eR Etna 


7$ uP i 7 COU ! 
$3Er UP CONE AaRnER 


;5ET BREAK CONTROL SIT, LINE # INF: 
; SHORT WAIT LoOce 
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:PONE NEVER CAME UF 
:R2 = TONTENTS OF CSR 


:CHECK REST OF CSR 
:BRANCH IF 3K 

CSR Es ~ 

7Rl = LINE 8 

sRe = CONTENTS OF CS 


3GE7 DATA FROM FI-FS 
han WIE OF 
: SARACT TER ERESENT NC? US 


Li 
sR2 = tNTENTS oF REUF 


:CHECK FOR FRAMING EFRCR 
:BRANCH IF OK 
:ERRNING “ERR OR NOT uP 


tRd = TINTENTS OF SEUF 
3GET LINE 8 

:gHECK O02 PARITY FL 
:SRANCH IF NOT 

fete cK PARITY ERROR 
$200 Fe PARITY SHOULD CAUSE PARITY 
'R3 = SONTENTS OF RBUF 


5 SHE CK PARITY ERROR 

:SRANCH a - 

:E VEN PARITY OR NO PARIT 
SULBRRT & "hate PARITY 

+ 2 CONTENTS OF RBUF- 

: CHECK UART OVERRUN 

sBRANCH IF OK 

og ay SET!! 


ah 
Re = xen ENTS OF RBUF 


Y 
ERROR 


a UY LINE’ 
:CHECK FOR RIGHT LINE » 
NCH IF Ok . 
WRONG | LINES IN FI/FO 
Rl = INE 
;R2 = CO NTENTS OF RBUF 


:CHECK DATA 
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Pil TEST SPEAKS ON ALL LINES 
3526 914722 0914 BEQ +4 :BRANCH IF OK 
355. B1s724 Taaghs HL T+2 :WRONG DATA pPECELVED 
3623 eae M ipo = LNTENTS OF RBUF 
3530 214res Oirree less MOV DRBUF. RE ;READ FI/FO AGAIN 
Se3; B1yeS3 yho551 BPL so IBRANCH IF OK 
3532 OL4734 1O4Od= YL T+2 SEXTRA A CHAR IN FI/FO 
$33 *R1 = LINE # 
334 “e ~ i :Re = CONTENTS OF RBUF__ 
S635 DI4T3E OOSOTT 164252 CLR JBCSR :CLEQ R BREAK CONTROL SES 
3635 O14742 905201 INC R] : COUNT 
3627 514744 306394 ASL qa : UPDATE jae E MARKER 
3538 Ors74s 6103300 gcc LOPEY :BRANCH IF.MORE LINES 
SI 
3840 O147S5O ocso77 164234 CLR 2csR :CLEAR CSR 
a3 Sre7ss 194900 SCOPE 
3643 DINTSE 12737 oDNPOe os77E MOV a2, TIMES 
3845 ee eee er teen eee 
354 “TEST &S: TEST THAT RESET CLEARS ALL BUFFERS 
3647 : NOTE: THE FIVFO BUFFER IS NOT COMPLETELY CLEARED 
SS4E ; BY RESET; ONLY CHARACTER PRESENT IS CLEARED. 
3643 sPROBABLE FAULTY LOGIC: Mre8S (De-8) £13 
3639 : KSLELE RELEASES KRSELAERRERESERRES FRESPELSFESSLSERFERRSESESFSFRHEFLELARELAE 
S652 O14754 052737 COO340 i7777& TSTéS: B15 #8349, DPS :SET PROCESSOR 19 LEVEL 7 
3653 014772 012777 77777 164214 MOV #177777, aTCR :SET ALL TCR Bits 
3654 915008 Oler77 Oseso7 164202 MOY wses0?. acsR spt ALL RW BITS oF ¢ 
2655 O15098 O12777 77777 16420 ; MOY OBCSR_ 4g SET ALL SRE AK SeuTeo{, ITS {SEND SRESKS? 
| 3655 sNOTE: ALL LINES roe BE SENDING BREAKS. SUT NONE SHOLLD SERECETYING 
| 3657 : BECAUSE THE HALF DUPLEX BIT IS SET 
| $658 C1504 012777 17777 1SHi74 NOV M777, STB LOD ING TRANG LPT WEN BREAK BIT SE 
x} HO! L. ‘ OTH 
| 660 15022 990905 . A RESET CLEAR THE WORLD 
2551 915524 913737 co1zic o1sc34 MOY CSR, 1$ :CHECK CSR AND SAVE 
| 3882 BI8582 01370: MoV. Sipe +, R1 
2663 O15934 990000 1$: oa9000 
|} 3564 O15936 90:40) BES +4 
apts 815040 104001 HLT+1 
| 3657 CISO42 O17701 1S414é MOV JTCR,R} :CHECK TCR AND SAVE 
3668 O1SO4E 90140! BES +4 
3658 pis9s0 104001 HLT+! 
i lis 
{ 3671 O180S2 917701 i€4136 MOY 2BCSR,R! :CHECK 8CSR AND 
| 3672 Sisose 001491 BEG +4 
| 3672 Oi8060 104001 HLT+1 
i Sor? 
' 3675 O1S062 O1770i Le41E4 MOY JRBUF RL :CHECK RBUF AND SA 
' 2676 OL5066 1009001 BPL +4 
| 2577 G1so7S 10400: HLT+1 
souls 
| 3673 Cis072 017701 164120 MOV OTBUF Fi sCHECK TBUE AND 
2b80 O1SC7E 00:40! BEG +4 
eS1 815109 16400) HLT+] 





ee 


MAINDES=“$11-0207A-0 

OLOIAD. Pil TSTss: 
3e82 
3683 O15 104400 
363% 
3685 
33§ 
389 
36893 
3699 
sb31 915104 99590: 
3632 915106 012703 
3633 OQ1S1l2 305904 
3894 O1Sii4 942737 
2s35 ClsSie2 OS2737 
e939 015125 Ol2700 
sssr 018134 Sle777 
$98 O1sl4e Ol2777 
3699 
2720 
27! 
3703 015156 032777 
3704 015156 991374 
s7CS 215:60 Cle777 
37% QI5i86 Ole777 
3707 Q15174 010977 
2758 015200 095777 
3709 C15204 190375 
3719 015206 910477 
37!1 OlS2ele 105204 
3712 015214 00137 
3713 015216 105703 
3718 QiS22e0 OO1376 
3715 olS22ee 917702 
27:6 015226 Oee70e 
3717 O1Se32e 08140! 
37:8 Oi523% 108002 
2713 
3720 
3721 9iS236 917702 
3722 015242 100001 
S7e3 O1SE44 194002 
3724 
3725 
2726 O1ISS46 Os2703 
2727 01S2eSe 0605201 
37e8 015254 022791 
2722 015260 001002 
3730 015262 005237 
3721 O1Se6& O0E300 
2732 G1Se70 103341 
3733 Oise7e 000417 
ol J 
2735 915274 017702 
2726 915300 100401 
2737 15282 194092 


190908 
rata 


164004 


183762 
110505 


oC0400 
co0ccs 
COi30& 


163712 


77775 
17 de 

De es dead 

: 7 ¢ 


o4E 


164 
LE494o 


164C32 


164032 
184025 


iTeeT bee END a GINGRY COUNT PATTERN ON EACH LIKE 
i TEST g6 BINARY COUNT PATTERN ON Ea LINE 
: PROBA té FAULTY LO 

PETTCTCTCTS TCT TT UTS STOTeTSCTCETET ETE TTT ETT TeTTeTeTTeTTeTeeTeTTerTTeeeee’ 


TST&é&: 


4$: 


ISRSE: 


MACY22 27°72) 


SCOPE 


SEND A 


GIC: 


21-SEP-76 


13:43 PAGE 7e 


COULD BE ALMOST ANYWHERE 


Rl 
| aia 


#340, 
#209, 


te acse 
8015505, 


e8IT4, 
1c 
ISRSE, 
C, 


@REUF , 
4 


#400, 
Rl 

#3, 

43 
OJLEN 
RO 

1$ 
ENDES 
@RBUF , 
11$ 


acsk 
#110505, 
+4 


aaPS 
aePS 
Fo 


CSR 


acsR 
aROVVES 


SRCVLYV! 


et © tee © te 
= 


R2 
Re 
Re 


R3 


Re 


iSET UP LINE COUNTER 
2 DA in 


ANS DAT 
CLEAR PROCESSOR FRIORIT: 
SET PRIORITY 
sSET UP LINE MARKER 
3CL 
RECEIVE ENABLE 
MAINTENANCE 
RECEIVER INTERRUPT ENE 
NS SCAN ENABLE 
satus ENABLE 
CR MOS TO CLEAR 
“SE UP RECEIVER INTERRUPT VECTOR 


; TRANS CONTROL, ONE LINE AT A TIME 
:WAIT FOR TRANS READY 


SEND CAT 
: BINARY iSunt 


:;WAIT FOR RECEIVER OCNE 
3 SAVE CSR 


a3) 


Pwwwwwe 
D4 0-40-4094 
-4 0 4-4-4 -4 4-4 
-4-OMWMaD 
mani mm i me) 


;R1I=L 
: RE=CONTENTS OF CSR 
;CHECK CHARACTER PRESENT 
:BRANCH IF OK 
ee PRESENT SET!! 
seat ONTENT S OF CSR 
UPDATE LINE & IN EXPECTED ORTA 


UPDATE LINE # 
CHECK FOR FOURTH LINE 
;BRANCH IF NOT 
;MOVE CHARQS y abene™ POINTER 
: UPD TE LINE MARKER 

; BRANCH IF MORE 

;SKIP ISR 


;READ FIRST DATA 
;BRANCH IF CHARACTER PRESENT 
; INTERRUPT SUT NO CHAR PRESENT 








MAINDEC=11-O2DIA-D_ 

D2OIAD.P LL TST&é: 
3738 
3:33 
3740 
3741 O15304 029203 
3742 915206 901491 
3743 C1S319 i04003 
37 44 
3745 
3745 
374? 015312 105203 
3748 015314 147703 
749 4015320 301493 
3°50 O1S322 01/702 
3751 915326 i0076& 
ee 015336 900002 
3754 015332 162737 
3755 915340 013777 
3756 015346 012777 
3757 915354 905077 
3758 915360 005077 
$770 015364 104400 
3761 015366 012727 
37S$2 915274 023737 
3763 91542 002092 
3764 015404 090137 
3765 
3765 015410 
3767 015410 004737 
3768 015414 062737 
3759 C1S4e2 005537 
2770 OiS4e6 932777 
3771 015434 991004 
3772 O1543¢ 000004 
3773 015442 900004 
3774 O15446 OOSO46 
2775 Oi154S0 032777 
3776 O154S6 001010 
3777 O15460 905137 
3772 O15464 100005 
3779 O1S46& OC5e716 
3780 QO1SH7e O1e746 
3781 QiS476 900002 
s7ge Sisson 12746 
3783 915594 Q00002 
3784 O1S506 013700 
S785 OiS5ie 001405 
3736 015514 -000005 
3787 O1SS16 
2788 O:5516 004710 
2789 015520 000240 
2730 O01SSee2 0240 
27391 €i552e4 000240 
3732 015526 deh 


Pi 


183766 
163664 


o00094 


1e3e34 
099020 
091394 
C0e30e 


017640 


002000 


ccoco? 
099!77 


910008 
0i5532 


o0cc20 
015526 


O1SS0& 
o00c4e 


OGIC TES 
LL DATA 


00} 20 


01577 
001234 


091206 
163662 


163640 


STS 
ON EACH LINE. 


118: 


KO6 
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;RI=LINE & 
;Re= CONTENTS OF a 
:R3=EXPECTED DATA 
CMP . R3 ; fs 
+ 


BEG , 

HLT+3 sat ay 
RE=CONTENTS OF _RBUF 
;R3= EXPECTED DATA 


INCB R3 *UPDATE EXPECTED DAT 
BICB JDILEN, R3 : MASK CHARACTER Paety 
BEG les ; BRANCH OUT IF DATA=0 
MOV aRBUF, Re sREAD MORE DATA 
BMI 11$ : BRANCH IF MORE 
le RTI ; N 
ENDES: SUS DJLEN sRESET CHAR LENGTH POINTER 
MOV RCULVL, DRCVVEC : RESTORE RECEIVER INT. VEC 
MOV sIOT, @RCVLVL 
CLR STeR’ ;C EAR TCR 
CLR aCcSR ;CLEAR CSR 
SCOPE 
MOV #20, TIMES 
CMF OJUuT, UNITS ;CHECK FOR LAST UNIT 
BGE DONE sBRANCH IF LAST UNIT 
IMP RESTAR = JUMP ” NOT 
CONE: 
JSR PC, KBDINT 
AD #1 * PONT+2 ;AQD_1 TO THE PASS COUNT 
ADC A NT :MAKE IT- COUSLE PREC. 
BIT i #SWlO,3SWR ;RING THE BELL? 
BNE 1$ ZNO! 
TYPE » BELL :RING he DEL 
TYPE ,177 TYPE A FILLER FOR 11/05 
1$: CLR -(6) fs : CLEAR TRACE T RAP 
BIT eSWi2,adSWR : RUN WITH ? 
BNE : T IT 
COM . BIT : COMPLIMENT FLAG 
BPL 23 3S IF PLUS 
BIS #20. (6) ;SET TRACE TRAP 
MOV #3$,-(6) ;JUMP TO START OF TEST 
RTI ;RETUR 
2s: MOY #4$,-(5) ;JUMP TO START OF TEST 
RTI ;RETUR 
4S: MOV ae42,R0 ;GET MONITOR ADDRESS 
BEQ 3% . 
RESET ;RESET AND 
SENDAD =. 
= 7,<0) ;G0 TO MONITOR 
NOP ;SAVYE RCOM 
NOP ;FOR 
~ NOP hai ACTLL 
2s: JMP RESTAR > RETURN 
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BELL AND SCOPE ROUTINE 
-18IT: 9Q ;T SIT FLAG 
YESRT: RTI _ gRETURN FROM TRACE TRAP 
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T: 
TGO = RECEIVER ENASLE 
SET 
INITA: MOV #2014, CSR :81T($)2,2.10 THEN 2 
BR INITR 
INITB: MOV #514, CSR ;BIT(S)2,3,6,8 THEN © 
gR INITA 
INITC: MOV #416, CSR :BIT(S)1,2,3,9 THEN © 
BS INITR 
INITD: MOV #414, 3CSR :BIT(S)2,3,8 THEN 9 
INITR: CL RO 
1S: INC Ro  ANTIHANG 
BNE 25 : ROUTINE 
MOV (SP) RO ;RECORD SUBROUTINE CALL RETURN 
SLB #2,R5 FORM CALL ADDRESS FOR DISPLAY 
HLT ;BIT#4 OF DEVICE CSR FAILED To CLEAR 
2g: BIT #81T4, ICSR : TEST Has MOS CLEARED 
BNE 1$ iN) ERAN HES 
BIS #1, acSR = :BITOO RECEIVE ENASLE 
TS PC : CONTINUE 
; $SCOPE SCOPE LOOP HANDLER 
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ON FAILURE: REGISTER O CONTAINS ERROR ADDRESS 
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RECEIVER INTERRUPT ENABLE 
MASTER XMTR SCAN ENS 
Rv BCSR 


FOR MOS TO CLEAR 


1S ROUTINE HANDLES THE ITERATIONS, LOOPING, ERROR 
COPING. AND THE DISPLAYING OF THE TEST NUMBER. 
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:"SCOPE" iS PLACED BETWEEN EACH SUBTEST IN THE TEST AND 
sRECORDS THE STARTING ADDRESS OF THE SUBTEST IN “LA&D:” 


PC, KBDINT 
#SW8, ISWR 


SUR ICNT 
#SUI14, ASWR 
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SVLAD$ 
ICNT+1 

FE 3 

TIMES, ICNT+1 
#i1,ICNT+1 
ICNT 

(6), LAD 
ICNT deDISPLAY 
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ICNT, SADISPLAY 
LAD 

SVLADS 

LAD, (8) 
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ERROR TYPEOUT HANDLER 
«OUT ERROR cee STE 


aslo, asWR 
BELL 
ERRORS 
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TADR 
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Hi TADR 


8 TTY 
PC CPR TTR. 


iE ERRORS 
hs 
PC. KBDINT 
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“2. PRINTR 
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PC 
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UTS. JEM 
FOR ADITIONAL TYPEOUTS. 


TO USER "ERROR ROUTINE 
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:SKIP IF CONTINUE 
:HALT ON ERROR! 
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;LOOP ON TEST UNTIL NO ERRORS 

He a te 
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